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EDITORIAL 



informática na sociedade moderna não se limita às atividades científicas ou 
de pesquisa. Ela atinge todos os setores ou atividades profissionais, 
transformando-se em uma ferramenta poderosa e eficiente para todos os usuá¬ 
rios. Nesse sentido, a CP — Computadores Pessoais vem desenvolvendo com¬ 
petentes equipamentos, colocando à disposição da sociedade a mais avançada 
tecnologia cm computação. Para a área da Educação, ela desenvolveu o 
DIDATA, sistema utilizado com surpreendentes resultados no Colégio San¬ 
to Américo. 

Mas, dependendo da necessidade do usuário e do software adequado, os com¬ 
putadores pessoais podem ter qualquer tipo de função: de um inteligente pro¬ 
fissional a um divertido jogo. Nesta temporada de Fórmula I, por exemplo, 
o CP 500 vai às pistas para apostar na Lotus, enquanto que um CP 400 CO¬ 
LOR ajuda nas comunidades agrícolas da região amazônica. Mas estes são 
apenas alguns exemplos cio que pode fazer a informática. Na verdade, sua 
utilização c ilimitada e cumpre um papel histórico no desenvolvimento cien¬ 
tífico e tecnológico. 

Daí a responsabilidade da indústria nacional, que tem à sua frente o desafio 
de fazer com que o Brasil deixe, a médio prazo, o Terceiro Mundo e passe 
a conquistar os benefícios de uma sociedade que controla as tecnologias da 
informação. 

Carlos Roberto A, Gauch 
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BASIC — Cepe — Centros de Proje¬ 
tos Especiais do Instituto Santa Amá- 
lia. Objetivos: preparar programador 
cm linguagem BASIC, interpretar e al¬ 
terar programas existentes no merca¬ 
do e desenvolver pequenos sistemas, 
Av. Jabaquara, 1673 — São Paulo — 
telefone: (011) 276-3369, 


universitária, programação e análises 
em BASIC, COBOL, FORTRAN. 
Rua I ta tiara, 226 — São Paulo — te¬ 
lefone: (011) 826-4233, 

Planilhas Eletrônicas — Programa: 
Introdução, Conceitos Básicos, Co¬ 
mandos do Supercalc, Técnicas Avan¬ 
çadas, Data: 20 a 23 de maio. Taxa 
de inscrição: 30 ORTN’s. Compucen- 
ter Microínformática. Telefone: (011) 
255-5988. 
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Linguagem e Software — Instituto 
Compucentcr de Informática. Cur¬ 
sos de extensão universitária ou pa¬ 
ra profissionais de todas as áreas de 
atuação, estudantes e interessados em 
informática. Rua Bela Cintra, 746 — 
1? andar — São Paulo — telefone: 
(011) 255-2091. 

Operação e Programação — Sed Cur¬ 
sos, Cursos, para adultos e crianças, 
de operação, linguagem, programação 
e análise. Rua Loefgren, 1227 — São 
Paulo - telefone: (011) 549-8902. 

Operação e Linguagem — Instituto 
Italiano Eugênio Montale. Cursos pa¬ 
ra adultos e crianças. Operação, lin¬ 
guagem, programação e análise. Ave¬ 
nida Angélica, 688 — São Paulo — te¬ 
lefone: (011) 66-9199, 

COBOL, FORTRAN — Fundação 
Armando Álvares Penteado (FAÂP) 
— CPD. Vários cursos de extensão 


CARIAS 


Protexto 


Possuo um CP 500 com dois drives e 
gostaria de mais informações sobre o 
software Protexto, principal mente so¬ 
bre Carta Padrão, pois não Eiá nenhu¬ 
ma explicação no manual de operação 
desse programa, 

Luis Tadeu M* A . da Silva 
Rio de Janeiro — RJ 

Caro Luís, com o Protexto você tem 
urn dos melhores editores dc textos na¬ 
cionais —- o que permite várias opções 
de edição. No caso da Carta Padrão, 
siga estas instruções: digite sua carta, 


Banco de Dados — de 22 a 24 de maio 
— A DP Systems — Divisão de Ensi¬ 
no. Programa: Introdução, Gerência 
de Arquivos, Modelos de Dados, Sis¬ 
temas de Gerência de Banco de Dados, 
Projeto e Administração de Aplica¬ 
ções, Tendências de Pesquisas e Desen¬ 
volvimentos de Banco de Dados. Lo¬ 
cal: Centro de Convenções Rebouças 
(Avenida Rebouças, 600 — São Pau¬ 
lo). Taxa de inscrição: 50 ORTN's, 
Inscrição pelo telefone: (011) 223-7511. 

DBASE —De29a 31 de maio. Cur¬ 
so de dBase II. Horário: das 9:00 às 
17:30. Servi mec — Rua Corrêa dos 
Santos, 34 — Bom Retiro — São Pau¬ 
lo - telefone: (011) 222-1511, 

Especializações — ABACE — Asso¬ 
ciação Brasileira de Administração e 
Conservação dc Energia — oferece 
os seguinte cursos: Robótica, Auto¬ 
mação, Controle de Processos CAD/ 
CAM, nos dias 16 e 17 de maio; e In- 


normalmeme, mas reserve espaço pa¬ 
ra as variáveis, que deverão estar limi¬ 
tadas por barras (/), Dê um nome para 
este arquivo e grave. Depois, abra um 
novo arquivo para as r variáveis. Mas, 
atenção: as variáveis deverão, também 
neste arquivo, estar limitadas por bar¬ 
ras (/)♦ Grave este novo arquivo. Abra 
novamente o arquivo da carta. Em 
seguida, acione os comandos @ F. 
Seu computador pedirá o arquivo a 
que você quer unir sua carta. Digite, 
então, o nome do arquivo das variá¬ 
veis, Pronto: agora é só dar o coman¬ 
do @ P, para a impressão. Veja o 
exemplo abaixo: 


Arquivo 1 
/nome/ 
/empresa/ 
/endereço/ 
/cidade/ 
(texto) 


Arquivo 2 
/Luis/ 

/XX/ 

/XXX, XX/ 

/Rio dc Janeiro/ 
(variáveis) 
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terfaces e Periféricos para Microcom¬ 
putadores, nos dias 20 e 21 de junho. 
Maiores informações: Avenida Paulis¬ 
ta, 2073 — Horsa 1 — cj. 1020 — São 
Paulo — telefone: (011) 285-2490. 


EVENTOS 

Expo Soft 85 — A exposição será rea¬ 
lizada em São Paulo, de 24 a 26;Je ju¬ 
nho no Centro de Convenções Re- 
bouças. Durante o evento, estarão ex¬ 
postos produtos e serviços como soft¬ 
ware de base, software aplicativo para 
qualquer computador, serviços de ti¬ 
me sharing, birôs de serviços, consul¬ 
torias e editoras, 

V Congresso da Sociedade Brasilei¬ 
ra de Computação e XI Conferencia 
Latino-Americana de Informática — 
Esses eventos têm a promoção da Uni¬ 
versidade Federal do Rio Grande do 
Sul e da SBC, Serão realizados em 
Porto Alegre de 20 a 27 de julho pró¬ 
ximo. 

21? Salão Internacional de Componen¬ 
tes Eletrônicos — Será realizado em 
Paris, de 4 a 8 de novembro próximo, 
no Parque de Exposições de Paris- 
Nord. No Brasil, os interessados po¬ 
derão contatar a Promosalons — Rua 
Araquan, 63 — São Paulo, 


Comandos utilizados: 

@ Q = para gravação 
@ F = para unir texto com variáveis 
@ P = para impressão. 

Importante: cm nenhuma outra parte 
de seu texto, você poderá utilizar o ca¬ 
ractere (/). 


Software CP 400 COLOR 


Sou um novo assinante des la revista. 
Possuo uni micro CP 400 e envio-lhes 
esta carta para parabenizá-los pelo su¬ 
cesso da Geração ProUgica e em se¬ 
gundo lugar para solucionar algumas 
dúvidas que possuo: 

1. O CP 400 é compatível com qual 
modelo de TRS 80, em termos de soft¬ 
ware? 


2, Gostaria de saber se programas pa¬ 
ra o CP 500 podem ser convertidos pa¬ 
ra o CP 400. Se isso for possível, gos¬ 
taria que publicassem na GP as prin¬ 
cipais diferenças do CP 500 para o 
CP 400, 

3, Pelo fato de o CP 400 ser um no¬ 
vo micro no mercado/eu não possuo 
muitos programas, por isso, sugiro que 
publiquem mais software na revista, 

Anderson Rodrigues Campos 
Belo Horizonte — MG 

Caro Anderson, agradecemos o elogio 
e esperamos que a nossa revista esteja 
sempre à altura de suas necessidades. 
Quanto às suas dúvidas, informamos 
que o CP 400 COLOR é compatível 
com o equipamento TRS 80 norte- 
americano. A diferença entre o CP 400 
e o CP 500 é que o microprocessador 
de um é completamente diferente do 
outro: o microprocessador do CP 500 
c o Z-80, e do CP 400, o 6809E. So¬ 
mente com um estudo muito profun¬ 
do dos dois computadores pessoais 
será possível converter programas de 
um equipamento para outro. Por isso, 
fica difícil especificar algum programa 
da Geração Prológica que não neces¬ 
site modificações. 

Quanto à publicação de programas 
para o CP 400 COLOR na GP, desde 
o número 11, estamos publicando uma 
média de trê^ softwares para este com¬ 
putador pessoal em nosso Encarte Es¬ 
pecial de Programas, Em breve, você 
terá tantas listagens para o COLOR 
como já tem para os outros CPs. 


As funções dos CPs 


Tomei conhecimento desta conceitua¬ 
da revista através de um amigo pes¬ 
soal, que possuí uni CP 300. Dada a 
seriedade técnica e editorial desta pu¬ 
blicação, goslaria que os senhores me 
informassem qual o melhor equipa¬ 
mento que devo adquirir, pois esta é 
a minha intenção, dentro das seguin¬ 
tes características: sou professor, c gos¬ 
taria de utilizar o microcomputador na 
minha profissão. Além disso, tenho 
três filhos adolescentes e gostaria de 
iniciá-los na informática, porém,.ne¬ 
nhum de nós uuucu teve acesso u estes 
equipamentos. Quais as melhores es¬ 
colas do mercado e como poderei me 
tornar um assinante da revista Gera¬ 
ção Prológica? 

Alfredo Gomes JVusi 
São Paulo — Capital 


Prezado professor Alfredo, a informá¬ 
tica é uma das mais eficientes c pode¬ 
rosas ferramentas para qualquer ati¬ 
vidade profissional. Na área da educa¬ 
ção, especificamente, as experiências 
demonstram a eficácia em sita utiliza¬ 
ção. Neste número da Geração Proíó - 
gica publicamos uma matéria com o 
Colégio Santo Américo, que tem uti¬ 
lizado com muito sucesso a computa¬ 
ção. No seu caso, sugerímos que o 
senhor solicite uma demonstração na 
CP — Computadores Pessoais, dos 
computadores CP 300, CP 400 CO¬ 
LOR e CP 500. Estes três equipamen¬ 
tos, cada um dentro de suas caracte¬ 
rísticas, são poderosas ferramentas da 
informática. Com qualquer um destes 
equipamentos, o senhor terá acesso a 
editores de textos, banco de dados, 
planilhas eletrônicas, aplicativos edu¬ 
cacionais e jogos. Quando às escolas, 
na seção Agenda, publicamos uma re¬ 
lação de estabelecimentos que dão cur¬ 
sos dc operação, linguagem, BASIC 
etc. Para se tornar nosso assinante, 
basta preencher e nos enviar o cartão 
específico dessa revista. Boa sorte! 


Umidade x CP 400 


Goslaria cie receber informações acer¬ 
ca dos cuidados que deverei ler com o 
meu microcomputador CP 400, a fim 
de que não seja danificado com a umi¬ 
dade, já que o clima onde resido é bas¬ 
tante úmido no outono e inverno. 

Alexandra Pa st ore 
Caxias do Sul — SP 

Caro Alexandro, o CP 400 COLOR 
não necessita de cuidados especiais 
com relação à umidade; mas, de qual¬ 
quer forma, você poderá colocar den¬ 
tro da embalagem (quando guardá-lo) 
um pouco de Silíca Gel. Este produto 
retira a umidade excessiva do ambiente. 


ERRATA 

No programa “Como Gerar Som 
no CP 500/300”, publicado na 
Geração Prológica n? 8, há um er¬ 
ro na linha 60100. Onde diz: 

IF PEEK (16 396) = 0 THEN,.. 
corrija para: 

1F PEEK (16 396) = 201 THEN... 
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SOFTWARE 

PROGRAMAS DISPONÍVEIS NO MERCADO 


O seu comp utador pe s soai pode ter a função que 
você desejar: um profissional ed itor de textos, um 
téc nico em números e fórmulas , um doméstico 

controlador de estoques ou agenda e até m esmo um 
divertido e inteligente jogo. Para isso, basta utilizar 
o software adequada _ 


O software é considerado a “intelL 
gência” dos computadores e de seus 
periféricos, pois sem ele as máquinas 
não desempenham nenhuma função 
útil. Mas o contrário também é verda¬ 
deiro: sem um corpo (hardware), o 
software perde sua utilidade* Somen¬ 
te juntos, hardware e software, é pos¬ 
sível um sistema completo de compu¬ 
tação. Mas o fundamental é que a re¬ 
lação entre os usuários e o seu compu¬ 
tador se faz através do software, 

Quando o usuário quer se utilizar 
do computador, ele precisa de um soft¬ 
ware que permita a perfeita interação 
usuário-hardware. Logo, a função que 
o usuário irá destinar ao seu equipa¬ 
mento dependerá do software que ele 
utilizar. Daí a importância do conhe¬ 
cimento dos mais variados programas 
existentes no mercado, compatíveis 
com o seu computador, para você ana¬ 
lisar suas necessidades e escolher o pro¬ 
grama adequado. 

Os equipamentos da CP — Compu¬ 
tadores Pessoais (CP 200, CP 300, CP 
400 COLOR e CP 500) possuem a mais 
poderosa e variada biblioteca de soft¬ 
wares disponíveis no mercado. Por is¬ 
so, sua utilização abre possibilidades 
às mais variadas funções: desde o la¬ 
zer e função doméstica até funções 
profissionais. Daí a importância do 
trabalho das software houses: elas de¬ 
senvolvem c comercializam a grande 
maioria dos programas disponíveis no 
mercado. 


PEEK & POKE 
e o CP 400 COLOR 

Com o CP 400 COLOR, por exem¬ 
plo, você tem várias possibilidades, 
tanto pelo poderoso hardware como 
pelo amplo pacote de softwares desen¬ 
volvidos, 

No número 11 da Geração Prológi- 
ca , publicamos os endereços de várias 
software houscs que comercializam 
programas para seu computador pes¬ 
soal. Neste número, publicamos umas 
lista de software, para o CP 400 CO¬ 
LOR, que você poderá encontrar na 
Peek & Poke (Avenida Brigadeiro Fa¬ 
ria Lima, 1664, ej. 1101 — São Paulo), 

ARTISTA: Editor Gráfico, Aplicati¬ 
vo que permite desenhar telas de alta 
resolução com o uso de joysticks ou 
das setas do teclado* Mistura gráficos 
c texto (fixo ou cm scrolí). Permite a 
gravação, leitura e encadeamento de 
telas. Requer 32 K de memória, 

CALC4ÕQ: Planilha eletrônica com 
256 linhas e 256 colunas. Aplicativo 
que permite a inserção de dados numé¬ 
ricos, strings ou fórmulas. Grava e lê 
as planilhas, imprime parciais e dispõe 
de recursos como somatória e funções 
trigonométricas. Requer 32 K de memó¬ 
ria. 

PPTEXTO: Processador de textos. In¬ 
clui recursos de edição, como inserção 
e detete de letras ou trechos de textos, 


formal ação, acentu ação e m po n u guê s; 
utiliza tela de 51 colunas por 24 linhas 
(opcional 64 ou 85 colunas), com 
maiusculas c minúsculas. Requer 64 K 
de memória, 

EXPA NSQR D E TE LA : Utiliza a al¬ 
ta resolução do CP 400, modificando 
a tela, que passa a ter 51 colunas e 24 
linhas, Pode ser usado em conjunto 
com qualquer programa BASIC. 

SUPERTEGi Reconfigura o teclado, 
onde cada tecla passa a valer por uma 
palavra-chave BASIC. Inclui numera¬ 
ção automática de linhas e uma tecla» 
programável. Agiliza muito a digitação 
de programas BASIC. Roda em 16 K, 

COLOR EDTASM: Editor Assembler 
e monitor em um só sistema. Utiliza os 
64 K de RAM do CP 400, Usado para 
o desenvolvimento e depuração de pro¬ 
gramas em linguagem de máquina. 

GEQGRAFIA I: Programa educativo, 
elaborado em linguagem de máquina. 
Utiliza os recursos de alta resolução 
para testar o conhecimento dos Esta¬ 
dos e Capitais do Brasil, Requer o uso 
de joysticks e roda em computadores 
com 16 K, 

JjQ-GOS: Tubarão, Defesa, Besouro, 
Pássaros, Perereca, Helicóptero, Espa¬ 
cial, Sideral, Demônios (para 16 K); 
Cttbcr, Armadilha, Gorila, Missão Lu¬ 
nar, Zaxxon (ver Geração Prológica u? 
II), Outhouse, Grand Prix, Ataque, 
Quix e Submarino (para 32 K). 
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REPORTAGEM DE CAPA 


APOSTE 
NA LOTUS 


Ayrton Senna e o CP 500 garantem 



O Brasil deu a largada para o gran¬ 
de shovv de perícia, emoção e veloci¬ 
dade do Campeonato Mundial de Fór¬ 
mula 1, na temporada de 85. A infor¬ 
mática, que há tempos vem aceleran¬ 
do os Grandes Prêmios com a compu¬ 
tação de dados, tomou partido nesta 
temporada e está apostando na Lo¬ 
tus/John Player Special de Ayrton 
Senna e Elio de Angelis, 

As apostas estão sendo feitas atra¬ 


vés do CP 500 e um software especifi¬ 
co, desenvolvido pela CP — Computa¬ 
dores Pessoais, numa promoção con¬ 
junta com a Souza Cruz e Rede Ban¬ 
deirantes, 

O mais importante é que essa pro¬ 
moção é tqtalmente democrática: qual¬ 
quer pessoa pode participar, apostan¬ 
do cm que lugar chegará o carro da 
Lotus, Como existem dois carros, va¬ 
le sempre a melhor posição, ou do 


Nesta temporada de 
Fórmula 1, a Informática 
sai dos bastidores e 
aposta na Lotus 
de Ayrton Senna, em - 
todos os Grandes Prêmios, 
com o CP 500. 


Ayrton Senna ou cio Elio de Angelis, 
A cada GP, os apostadores que 
acertarem o lugar de chegada da Lo¬ 
tus concorrerão a vários prêmios e, no 
final da temporada, os sorteados de ca¬ 
da corrida concorrerão, mais uma vez, 
a prêmios especiais. 

O próprio Ayrton Senna tentou a 
sorte fora das pistas. Antes do Gran¬ 
de Prêmio Brasil, em Jacarepaguá, ele 
apostou que chegaria em \? lugar. Mas 
deu azar na 50:' volta, seu carro que¬ 
brou por defeitos na parte elétrica, No 
entanto, quem apostou no 3? lugar 
acertou, pois Elio de Angclis subiu ao 
pódiuni na terceira posição. 

Já no Grande Prêmio de Portugal, 
em Estoril, da pole-posicion ao primei¬ 
ro lugar no pódium, Ayrton Senna bri¬ 
lhou eom a conquista de seu primeiro 
GP, Quem acreditou em Senna, apos¬ 
tou e ganhou. 
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ONDE APOSTAR 


Em todos os Grandes Prêmios da 
temporada de 85, você terá oportuni¬ 
dade de apostar na Lotus nos postos 
de apostas de São Paulo, Campinas e 
Rio de Janeiro. 

Em São Paulo, você terá um CP 500 
à sua disposição nos seguintes locais: 
Shopping Norte, Shopping Iguatcmi, 
Shopping Eldorado, FMU — Faculda¬ 
des Metropolitanas Unidas — e Cur¬ 
so Anglo. Em Campinas, no Shopping 
Iguatemi; e no Rio de Janeiro, também 
nos principais pontos de comércio. 


LOTUS 

<*£ IHUCÍP 12» 31 

fv* 

!*5í nr K *0.9 
rr.t r >€ 2**' 

IKÍ & 


mm u » 


Nestes locais, haverá sempre um 
responsável pelas apostas e pela correta 
utilização do computador. Mas isso 
nem seria preciso, pois o programa 
utilizado pelo CP 500 é muito simples. 
O apostador só precisará digitar seu 
nome, endereço completo, telefone e 
aposta. 


COMO APOSTAR 


O participante poderá escolher en¬ 
tre 7 opções: do \? ao 6? lugar ou a 
aposta 0, que significa qualquer outra 
posição que não conte pomo para o 
campeonato. 

Estas apostas ficam gravadas em 
disquetes (900 apostas por disquete) e 
são enviadas para aCP — Computa¬ 
dores Pessoais, responsável pelo ar¬ 
mazenamento, gravação e sorteio com¬ 
putadorizado. 

Como a promoção APOSTE NA 
LOTUS permanecerá durante toda a 
temporada de Fórmula l, as apostas, 
a cada Grande Prémio, poderão ser 
feitas uma semana antes da corrida e 
o sorteio será realizado sempre uma se¬ 
mana depois, aos domingos e ao vivo 
no Show do Esporte, pela TV Bandei¬ 
rantes. 


PRÊMIOS os PRIMEIROS 



A cada Grande Prêmio será rea¬ 
lizado três sorteios entre os acerta- 
dores. Primeiro é sorteado o disquete 
e, depois, os números das apostas acer- 
tadoras, pois o programa desenvolvi¬ 
do pela CP seleciona as apostas cor¬ 
retas contidas nos disquetes, automa¬ 
ticamente. 

Entre os apostadores vencedores se¬ 
rão sorteados os seguintes prêmios: 
uma moto Honda, uma TV a cores e 
um computador pessoal. 

Mas os prêmios não param por aí: 
no final da temporada, os acertadores 
premiados a cada Grande Prêmio con¬ 
correrão a mais prêmios: um Ford Es- 
eort JPS, um aparelho dc TV com 
videocassete e câmera, uma viagem a 
Itaparica, com uma semaha de hospe¬ 
dagem no Club Mediterranêe, um con¬ 
junto de rodas magnésio, um conjunto 
de bancos para automóvel e um teto 
solar para automóvel. 


VENCEDORES 

No Grande Prêmio Brasil, a primei¬ 
ra corrida da temporada 85, mais de 
40 000 pessoas fizeram suas apostas. 
Apesar de o carro de Ayrton Senna ter 
quebrado na 50? volta, Elio de Ange- 
lis conquistou o 3? lugar no pódium. 
E é justamente isso que vale: o melhor 
lugar conquistado por um dos dois car¬ 
ros Lotus/John Playcr Special. 

Dos 40 000 apostadores, 23,80% 
acertaram, apostando no 3? lugar. O 
sorteio desse Grande Prêmio foi reali¬ 
zado no Show do Esporte de 14 de 
abril próximo passado. 

Os ganhadores foram: 

l ? Prêmio: CP 200 S — Disquete n? 
7, aposta n? 498 — Dorival Apareci¬ 
do Gaion — Osasco — São Paulo. 

2? Prêmio: TV a cores — Disquete 
n? 8, aposta n“ 403 — Fernando de 
Carvalho — Capital — São Paulo. 

3? Prêmio: Moto Honda — Disque¬ 
te n? 6, aposta n? 256 — Manoel Mo¬ 
rais — Campinas — São Paulo. 


7 cie 

21 de 
5 de 

19 de 

2 de 
16 de 
23 dc 

7 de 

20 de 
4 de 

18 de 
25 de 

8 de 

22 de 
13 de 

3 de 
16 de 


_ CALENDÁRIO DE 1985 _ 

abril_ GP do Brasil, Jacarepaguá 

abril_ GP de Portugal, Estoril 

maio _ GP de San Marino, Imola (Itália) 

maio_ GP de Mônaco (rua) 

junho_ GP da Bélgica, Spa-Francorchamps (rua) 

junho_ GP do Canadá, Gilles Villeneuve, Montreal 

junho _ GP de Detroit, EUA (rua) 

julho_ GP da França, Paul Ricard 

julho_ GP da Grã-Bretanha, Silverstone 

agosto_ GP da Alemanha, Hockenheim ou Nurburgring 

agosto_ GP da Áustria, Osterreichring 

agosto_ GP da Holanda, Zandvoort 

setembro_ GP da Itália, Monza 

setembro_ GP de Nova Iorque, Flushing Meadows (rua) 

outubro_ GP da Europa, Mugello (Itália) 

novembro_ GP da Austrália, Adelaide (rua) 

novembro_ GP da África dn Sul, Kyaíami 
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adesões ao CLUBE CP’s têm 

sido surpreendentes. Não só pelo número de interessados, 
mas, principal mente, pela necessídadeUe - 

"Informações dos usuários, quer seja 

quanto 'a hard ware ou software. 

""Neste número, atendemos alguns d e"n o ss o s socios. 


Disco Rígido 

Luís Alberto Cavalcanti, possuidor 
de um CP 500 e engenheiro em Reci¬ 
fe, quer mais informações sobre discos 
rígidos. 

Luis, os discos rígidos podem ser 
encontrados no.s tamanhos de 5 1/2 e 
8 polegadas. Sua capacidade de arma¬ 
zenamento varia de 5 a 70 megabytes, 
dependendo do seu tamanho, da den¬ 
sidade e do formato de gravação. O 
disco em si c uma unidade rígida, re¬ 
coberta por um material magnético de 
alta qualidade. O cabeçote se desloca 
sobre o disco para ter acesso às suas 
trilhas, exatamente como no sistema de 
disco flexível. Contudo, o disco é lu¬ 
brificado. O conjunto composto pelo 
disco c pelo cabeçote é hermeticamen¬ 
te fechado num gabinete plástico a fim 
de evitar a infiltração de sujeira e eon- 
taminadores.Essas unidades de disco 
sao chamadas de Winchester* 

A alta qualidade do meio de grava¬ 
ção, a alta velocidade de rotação (nor¬ 
malmente de 3 600 rpm) e a ausência 
de problemas de alinhamento do cabe¬ 
çote, associadas a elementos removí¬ 
veis, tais como disquetes, garantem aos 
discos rígidos um número maior de tri¬ 
lhas (até 600) e uma maior densidade 


de gravação. Isso faz com que os dis¬ 
cos rígidos tenham duas vantagens 
principais sobre os disquetes: maior ca¬ 
pacidade de armazenamento e menor 
tempo de acesso aos dados. Uma uni¬ 
dade de armazenamento Winchester 
comum, com um disco de 8 polegadas, 
pode armazenar 8,4 milhões de bytes. 

Essa foi uma explicação geral, Luis. 
Aguarde para o próximo número, uma 
matéria específica sobre o CP 
500/Winchester. 

Software para a Medicina 

O pediatra Carlos Nogueira de Al¬ 
meida, do Rio de Janeiro, pediu infor¬ 
mações sobre onde encontrar um 
programa para sua clínica. Além des¬ 
se software específico, o doutor Car¬ 
los também precisa de um editor de 
textos e um programa Mala Direta. O 
doutor Carlos só esqueceu de informar 
qual o seu equipamento! 

No entanto, como você está com 
muita pressa (boa sorte na inaugura¬ 
ção da nova clínica!), o CLUBE CP*s 
selecionou algumas software houses, 
para solucionar seu problema. Se o seu 
equipamento for um CP 500, procure 
a Nasajon Sistemas (Avenida Rio 
Branco, 45 — grupo 1311 — Rio de 
Janeiro). Eles possuem o Cadastro cie 


Clientes paru Clínicas Médicas, o 
Emissão de Mala Direta, o Mala Di¬ 
reta com Editor de Textos , entre ou¬ 
tros. Mas, se ó seu equipamento for o 
CP 400 COLOR, procure o Color 
Club (Caixa Postal 9079 — Rio de Ja¬ 
neiro) e a Knstian Eletrônica (Rua 
Gonzaga Bastos, 112 — Rio de 
Janeiro). 


Planilha Eletrônica 

Ricardo Soares, engenheiro agrôno¬ 
mo de Manaus, possuidor dc um CP 
400 COLOR, precisa de uma planilha 
eletrônica. O Ricardo foi bem claro, 
quanto a um problema: não tem con¬ 
dições financeiras para comprar um 
software nos próximos meses. “Mas 
este programa ajudaria muito o meu 
trabalho junto às comunidades agríco¬ 
las aqui da região* 1 , escreveu Ricardo. 

Dada a importância social do tra¬ 
balho do engenheiro, a software hou- 
se Peek Poke y de São Paulo, cedeu 
uma planilha eletrônica — o MINI- 
CALC — para vciculação no CLUBE. 
Por Falta de espaço, publicamos a pro¬ 
grama no Encarte Especial de Progra¬ 
mas deste número da Geração 
Prológica . Todos aqurdo CLUBE, de¬ 
sejamos muita sorte ao engenheiro Ri¬ 
cardo e às comunidades agrícolas. 
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CURSOS 


ANÁLISE E CRIAÇÃO 


DE UMA MALA DIRETA 


PARTE III 


Controle sobre o nú mero 
de registros gravados no arquivo. 


Luiz Antonio Borlta 


No número anterior, nós vimos o 
início do cadasiramento e a crítica da 
entrada de dados. Veremos agora co¬ 
mo efetuar o controle sobre o número 
de registros gravados no arquivo. 

O arquivo randômico pode ser usa¬ 
do de duas maneiras distintas: uma, 
como se fosse um arquivo sequencial, 
isto é, comacesso aos registros em se- 
qüência numérica; a outra, com aces¬ 
so aleatório pelo número do registro. 

Vejamos a primeira maneira: pa¬ 
ra um acesso sequencial, necessita¬ 
mos criar uma variável contadora, que 
permite fornecer a cada registro um 
número inteiro (variável inteira do 
BASIC, cujo símbolo é %), que pode 
variar de 1 a 32 767, É sempre conve¬ 
niente que esta variável seja inicializa- 
da com o valor 1, pois a cada gravação 
ela poderá ser incrementada, como ve¬ 
remos a seguir. Para o início do cadas- 
tramento, não há nenhum problema, 
pois basta, no começo do programa, 
colocarmos uma linha do tipo: 

15 1X% = 1 

e a cada gravação, incrementamos tal 
variável fazendo IX% = IX% + 1. Mas 
como poderíamos, numa outra oca¬ 
sião, continuar a gravação do nosso ar¬ 
quivo? Existem várias maneiras, A 
mais simples é a utilização do primei¬ 
ro registro do arquivo como armaze- 
nador do número de registros (índice) 
já gravados no arquivo. 


Para isso, devemos usar um peque¬ 
no truque, que é criar um FIELD, es¬ 
pecial para este registro em particular, 
pois ele será diferente de todos os ou¬ 
tros do arquivo. Mas devemos ain¬ 
da contornar outro problema: e quan¬ 
do o arquivo não possuir nenhum re¬ 
gistro gravado (arquivo novo)? É fá¬ 
cil, Basta um teste para verificar se o 
arquivo se encontra em seu final (tes¬ 
te de EOF). 

Vamos a um exemplo: 

10 CLEAR 2000: CLS: T RESERVA ES¬ 
PAÇO DE STRING E APAGA A TELA 
20 1X% = 1 

àOGPEN n R’\ 1, “ARQU1VO/DAT", 110 
40 FIELD 1, 2 AS IX$, 108 AS ZZ$ 
45 FIELD 1, 30 AS NOS, 40 AS ENS, 13 
AS TL$, 20 AS CDS, 2 AS ESS, 5 AS 
CPS 

50 GET 1, IX% 

60 IF EOF (1) THEN 70 ELSE IX% = CVI 
(IXS) 

70 ' CONT1NUACAO DO PROGRAMA 

Ora, neste exemplo nós temos os 
2 FIELDS para o mesmo arquivo. 
Quando vamos utilizar a nossa variá¬ 
vel índice, lemos o registro e usamos 
a variável IXS; quando for um regis¬ 
tro normal, lemos da mesma maneira 
e usamos as outras variáveis (do segun¬ 
do FIELD), É importante notar que 
ambos os FIELDS têm o mesmo tama¬ 
nho lógico, isto é, 110 bytes, sendo 
portanto a variável ZZ$ sem nenhuma 


utilidade (variável DUMMY) — a não 
não ser para compatibilizar os dois re¬ 
gistros. Quando fazemos o GET 1, 
IX% (lembre-se que 1X% — 1 na linha 
20), testamos sc o arquivo está vazio 
ou não. Se estiver vazio (EOF verda¬ 
deiro), o iX% continuará com o va¬ 
lor 1, senão, à IX¥o será atribuído o 
valor (numérico) de IX$, que é o nú¬ 
mero de registros do arquivo. 

Finalmente, não podemos esquecer 
que, ao encerrarmos a gravação do ar¬ 
quivo (dados normais), devemos gra¬ 
var o número de registros na primeira 
posição do mesmo arquivo, da seguin¬ 
te maneira: 


300 MX% = 1: f NUMERO DO REGIS¬ 
TRO A SER GRAVADO 
310 LSET IX$ = MK!$ (IX%): 1 CONVER¬ 
TE O VALOR DE IX% EM STRING E O 
TRANSFERE PARA O FIELD (BUFFER) 
320 PUT 1, MX%: 1 GRAVA O REGIS¬ 
TRO NUMERO 1 (VALOR DE MX%) 
330 CLOSE 
340 END 

O valor de IXRfo é o novo número 
de registros do arquivo, que será gra¬ 
vado na mesma posição do anterior; 
solucionando, assim, o problema de 
aumentar o número de registros do ar¬ 
quivo e manter um controle total so¬ 
bre isto. 
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CURSOS 


CURSO DE BASIC 


LIÇÃO VIII 


A sub-rotina é um pequeno programa 
inserido no programa principal. Esse é 
um dos conceitos que Marilena Occhini 
Siviero explica nessa importante lição de 
BASIC: o conceito de sub-rotina. 




Muitas vezes, em uma programa¬ 
ção, um trecho de programa se repe¬ 
te. Escreve-lo constantemenie torna a 
tarefa maçante e ineficiente, porque o 
trecho repetido, cada vez que isso 
ocorre, ocupa novas posições de me¬ 
mória* O que fazer? A solução é sim¬ 
ples. Imagine o trecho de programa 
como sendo uma caixa com um nome, 
por exemplo, 300* 

Quando o computador ler uma ins¬ 
trução que o mande para a caixa 300, 
ele pára de executar o programa prin¬ 
cipal, vai à caixa, executa o conteúdo 
da caixa e retorna ao programa prin¬ 
cipal* Caso seja necessário, ele, em ou¬ 
tro pomo do programa, voltará à caixa 
300. A este procedimento damos o no¬ 
me de sub-rotina. 

A sub-rotina é um pequeno progra¬ 
ma inserido no programa principal. 
Em BASIC, a instrução que manda o 
computador executar uma sub-rotina 
é a instrução GOSUB. A sub-rotina é 
precedida por um número dc linha e 
está localizada no final do programa, 
sempre após a instrução END ou 
STÒP. A instrução RETURN marca 
o fim da sub-rotina, indicando ao 
computador que de deve retornar ao 
programa principal, na linha seguinte 
à da instrução GOSUB* 

A sub-rotina é identificada pelo seu 
número de linha ou por um nome for¬ 
necido pda instrução REM, que pode 
aparecer na primeira linha da sub- 
rotina. 


Abaixo, um exemplo do programa 
que calcula a média de um grupo de 
alunos: 


10 REM CALCULO DA MEDIA PON¬ 
DERADA 

20 DATA 8, 3, 3, 10, 1.5, 2, 2 , 0, 0, 5.7, 3.9, 
1, 9, 6.3, 10, 3.a 

30 REM LEITURA DAS NOTAS DE TESTES 
40 FOR 1 = 1 TO 4 
50 READ N(l) 

60 N EXT I 

70 REM CHAMADA DA SUB ROTINA DE 

CALCULO DE MEDIA ARITMÉTICA DOS 

TESTES 

90 GOSUB 330 

100 LET Ml = XI 

110 REM LEITURA DAS NOTAS DE PROVA 
120 FOR 1 = 1 TO 4 
130 READ N(l) 

140 NEXT I 

150 REM CHAMADA DA SUB-ROTINA DE 

CALCULO DE MEDIA ARITMÉTICA DAS 

PROVAS 

170 GOSUB 330 

180 LET M2 = XI 

190 REM- CALCULO DA MEDIA PON¬ 
DERADA 

200 LET F = (Ml + 2‘M2)/3 
210 REM IMPRESSÃO FINAL 
220 PRINT "MÉDIA FINAL”; X; ” = ”; F; 
230 IF F> = 5 THEN PRINT “APROVA¬ 
DO!!!” ELSE PRINT ”REPROVADO” 

240 LET X = X+ 1 

250 IF X>2 THEN GOTO 300 

260 PRINT 

200 PRINT 

290 GOTO 40 

300 END 

310 REM SUB-ROTINA PARA O CALCULO 
DAS MEDIAS ARITMÉTICAS DE PROVAS 
E TESTES 
330 LET XI = 0 


340 FOR I = 1 TO 4 
350 LET XI = XI + N{l> 

360 NEXT I 
370 LET XI = X1/4 
380 RETURN 

Na linha 90 do nosso programa, 
ocorre a chamada de uma sub-rotina: 
a sub-rotina de cálculo da média arit¬ 
mética dos testes. O motivo de usá-la 
neste programa c que a mesma será uti¬ 
lizada novameme na linha 170, para 
cálculo da média aritmética das pro¬ 
vas. A razão pam isso é simples: o nú¬ 
mero de provas e testes é o mesmo e 
o processo de cálculo também* 

Outro fator a ser reparado: a sub- 
rotina foi escrita logo após a instrução 
END* Se isso não ocorresse, o compu¬ 
tador continuaria seguindo o progra¬ 
ma, executando novamente a 
sub-rotina e acusando erro ao encon¬ 
trar a instrução RETURN. 

Um outro uso para a sub-rotina é 
fazer pequenos trechos de programa, 
que são normalmcnte usados em vários 
programas diferentes. Um exemplo 
disso é o cálculo de fatorial. A sub- 
rotina é simples. Observe: 

900 REM SUB-ROTINA PARA CALCU¬ 
LO DO FATORIAL DE N 
1000 LET F = 1 

1010 FOR I = 1 TO N LET F = F'l 
1020 NEXT I 
1030 RETURN 

Se num determinado programa 
principal precisarmos do fatorial de A, 
deveremos incluir as instruções: 

100 LET N = A 
110 GOSUB 900 
120 PRINT F 

Podemos ter, então, um 1 ‘arquivo 1 * 
de sub-rotinas e, quando precisarmos 
de uma delas, é só pesquisar c incluí- 
la no programa, com as devidas mo¬ 
dificações (número de linhas e nome de 
variáveis)* Sugerimos que você use pa¬ 
ra isso um caderno ou, se seu compu¬ 
tador pode gravar prqgramas em fita, 
disquete ou disco; reserve uma fita ou 
trecho dc um disco ou disquete para es¬ 
tas sub-rotinas* 
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MUNDO D#l 
INFORMÁTICA 


URSS 

na Intelsat 

A União Soviética so¬ 
licitou sua adesão à Or¬ 
ganização Internacional 
de Telecomunicação 
por Satélite — Intelsat 
—, a qual agrupa 109 
países de todo o mun¬ 
do . A iniciativa se deve 
à necessidade da URSS 
em contar com uma tec¬ 
nologia mais avançada 
no campo das telecomu¬ 
nicações, pois o seu sis¬ 
tema Intersputnik tem 
demonstrado algumas 
deficiências nas comu¬ 
nicações internacionais 
via satélite. 




\ Secretaria de Negócios M^ropoütanos ^eSaoP^ 
está implantando no mct ■ informações aos 

iadores para oferecer 5C crctário Al- 

usuános do transporte- pessoal e está pre- 

mino Afonso, os nncros serão fle uso p . mi ^ „ B 

^^-:^ t » orraa ' 0 


PRONET 

NO PARANÁ Os deputados paranaenses 


pesquisas 


JAPÃO 


... 

- 




m 


i Não são só os norte- 
americanos que trans 
í formam a ficção em 
| realidade: os gran- 
ÈÜ des fabricantes de com- 
‘ puladores do Japão 
(Ncc, Hitachi, Matsu- 
shita e Uniden Corpora¬ 
tion) estão financiando estudos destinados a ex¬ 
plicar cientificamente as atividades paranormais, 
pois consideram que fenômenos como a telepa¬ 
tia e o sexto sentido desempenharão, no futuro, 
um papei fundamental no desenvolvimento das 
telecomunicações. 



SÊUMAURlCtO 


agora dispõem de mais 
tempo. É que a 
Assembléia Legislativa do 
Paraná adquiriu uma rede 
Pronet com 8 micros 
Super 700 da Prológica e 
5 impressoras P-720, 
instalando um sísierna 
pioneiro que vai agilizar 
os trabalhos de controle e 
emissão de 
correspondência, 
dministração legislativa, 
apoio técnico e controle de 
processos. 


presidente do Serpro, José Dion 
de Melo Teles, recebeu o título de 
“Personalidade de Informática de 
1984", conferido pela Associação 
Nacional dos Dirigentes e Execu¬ 
tivos de Informática — AndeL 
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BIOCHIP 


uma 

fíccão? 


Pode parecer ficção, mas 
não é. No futuro» os compu¬ 
tadores poderão ser opera¬ 
dos pelo cérebro humano» 
através dos impulsos dos 
nervos, Para tanto, os cien¬ 
tistas norte-americanos estão 


trabalhando em uma espécie 
de biochip, um circuito inte¬ 
grado desenvolvido pelo de¬ 
partamento de bioengenharia 
do Instituto Tecnológico de 
Massachussetts, principalmen¬ 
te para utilização na medicina. 



A VOZ DOS ROBOS 


A sintetização de voz pa¬ 
ra robôs ganha nova dimen¬ 
são com o lançamento de 
dois CIs da General Instru¬ 
mem Corp. 

Um é o integrado ato fô¬ 
nico SP0256A-A12, que de¬ 
sempenha todas as funções 
de síntese. Ao contrário dos 
simetizadores fonêmicos, 
que armazenam somente 
unia versão de cada som, es¬ 
se integrado produz até três 
variantes de vários fonemas» 
o que importa num discurso 
sintético mais inteligível. 

O outro ó o microproces¬ 
sador de 8 bits CTS256A- 
Á12 que controla o endere¬ 
çamento alofônico tendo co¬ 
mo base um conjunto de 400 
regras de tradução fonêmi- 
ca. À medida que o usuário 
introduz o texto em caracte¬ 
res ASCII, o algoritmo de 



tradução efetua a varredura 
do código, examina os con¬ 
textos da esquerda para a di¬ 
reita e consulta a tabela de 
tradução dos endereços alo- 
fônicos apropriados. 


INTELIGÊNCIA 

ARTIFICIAL 


A inteligência artificial 
ainda é uma área da informá¬ 
tica inacessível ao hobista. 
Há, porém, algumas tentati¬ 
vas de popularização. 

Uma delas é o GCLisp da 
Gold HilL Esse pacote con¬ 
tém uma versão mais sofisti¬ 
cada do interpretador GCLisp, 
um compilador GCLisp e 
uma ótima documentação. 

Desenvolvido a partir da 
Lísp, a linguagem mais popu¬ 


lar da inteligência artificial, 
ele c capaz de endereçar ate 16 
megabytes de memória física 
e explorar toda a capacidade 
computacional do PC-AT. 

Os PC-ATs com, no míni¬ 
mo, 3 megabytes de memória, 
um disco rígido de grande ca¬ 
pacidade, umco-processador 
matemático 80287 da Intel e 
um monitor de vídeo em co¬ 
res constituem a configura¬ 
ção ideal para essa máquina. 




im-M 


TELEMÁTICA 


A democratização das informações no Brasil 
nunca esteve tão próxima como agora, com a via¬ 
bilização dos vários bancos de dados e o início das 
operações do primeiro satélite doméstico brasilei¬ 
ro, o BrasilsaL 

Hoje, além dos conhecidos Videotexto e Cirnn- 
dão, os usuários de microcomputadores também 
podem ter acesso ao banco de dados do governo, 
via telefone: o sistema Aruanda, o banco de dados 
elaborado para tornar publicas as informações co¬ 
letadas por órgãos do governo, também pretende 
democratizar suas informações. 

Este sistema está instalado nos computadores da 
lf URO (Unidade Regional de Operações) do Ser- 
pro, em Brasília, que realiza o serviço de processa¬ 
mento de dados de ministérios e grande número de 
órgãos públicos. Nesta unidade, estão armazena¬ 
das milhares de informações que, se organizadas ra- 
cionalmente, podem ser abertas para uso da 
sociedade, atendendo às mais diversas finalidades: 
pesquisas acadêmicas, empresariais c sindicais, en¬ 
tre outras. 

Se o seu equipamento de computação já inclui 
um modem para conectar o micro ao telefone, vo¬ 
cê já pode utilizar o sistema Aruanda, discando via 
DD D para o número do Aruanda, no Distrito Fe¬ 
deral, e obter informações comidas em mais de dez 
bases de dados, como: nomes, endereços, CGC e 
outros dados sobre cerca de 2 milhões de empresas 
reunidas pelo Cadastro Nacional de Empresas 
(CNE); informações numéricas econômico- 
financeiras sobre 146 países membros do Fundo 
Monetário Internacional (FMI) e sobre algumas en¬ 
tidades relacionadas com o órgão, alem de várias 
outras informações. Também a partir do Aruanda 
você poderá ter acesso à lista de todos os softwares 
nacionais ou estrangeiros registrados junto à Secre¬ 
taria Especial de Informática — contidas na base 
Proso/L 

As informações contidas no Aruanda são orga¬ 
nizadas através do software gerenciador de bases 
de dados Adabos, o que permite uma linguagem 
conversacional com o usuário, durante os acessos 
de pesquisa. O sistema tem capacidade para 200 ba¬ 
ses de dados e, além de prestar o serviço de consul¬ 
tas, o Serpro pode dar também tratamento às 
informações de fornecedores, organizando-as em 
bases de dados relacionais, 

Para Advai Rabc! lo, diretor do Desenvolvimen¬ 
to de Sistemas do Serpro, as informações coleta¬ 
das pelos órgãos de governo são públicas e a 
democratização do acesso às mesmas deve ser sem¬ 
pre ampliada, acompanhando o processo de demo¬ 
cratização do País. 
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ACELERE A VELOCIDADE DO BASIC 


Neste número, a seção Dicas irá concentrar-se em urn tópico 
muito importante para os programadores em BASIC: a veloci¬ 
dade. O CP 500 e o CP 300 usam o microprocessador Z-80, que 
é muito rápido, para não dizer um dos mais rápidos na catego¬ 
ria de 8 bits. Assim sendo, deduzimos que, para agilizarmos o 
BASIC, devemos unir suas vantagens, aquelas da programação 
em linguagem de máquina* tornada possível por meio das roti¬ 
nas USR. 

Nesta edição, veremos uma aplicação especial dessas rotinas, 
para a qual não será necessário conhecimento prévio de coman¬ 
dos do processador Z-80: mostraremos uma sub- rotina escrita 
em linguagem ASSEMBLY* sendo que, se houver disponibilida¬ 
de de um EDITOR-ASSEMBLER* poderá ser chamada direta- 
mente após carregada c mostraremos também o resultado da 
sub-rotina convertida para o BASIC* tudo comentado em deta¬ 
lhes. A partir daí, a imaginação do programador irá expandir 
esse pequeno universo que tentamos mostrar aqui. 

Escreveremos um programa contendo uma curta sub-rotina* 
que possa copiar o conteúdo da posição 0 (zero) do vídeo para 
as outras 1023 nele existentes; por exemplo, se imprimirmos "X" 
na posição 0* a chamada desta sub-rotina irá encher a tela com 
"xis”. 

Eis o programa: 

00010; ENTELA ÍH SUB-ROTINA PARA ENCHER A TELA 


00020; 

00030 

ORG 

0FFF0H 

; ORIGEM INICIO 

00040 

LD 

HL* 15360 

; HL APONTA PARA 0 

00050 

LD 

DEJ5361 

; DE APONTA PARA 1 

00060 

LD 

BC,1023 

; REPETIR 1023 VEZES 

00070 

LDÍR 


; HL P/ DE, REPETIR 

00080 

RET 


: RETORNAR (AO BASIC} 

00090 

END 



A linha 30 especifica a origem da rotina USR; FFFQ está 16 
bytes aquém do final da memória RAM do CP 500 (CP 300); 
as linhas 40 até 80 contém a sub-rotina propriamente dita. Car¬ 
regamos o registrador HL com o endereço do primeiro byte da 
tela do CP 500/300* e o registrador BC com 1023. O comando 
LD1R copia o byte "selado”, ou seja* apontado por HL para 
a posição apontada por DE; adiciona 1 para HL e DE e subtrai 
1 de BC. Isto será repetido até que BC seja igual a zero, o que 
significa que o conteúdo do primeirtf byte da tela foi copiado 
1023 vezes* posição após posição; a linha 80 contém o comando 
RET* similar ao RETURN do BASIC; se este programa foi "cha¬ 
mado” pelo BASIC por meio de USR, o RET fará com que o 
programa (cm BASIC) continue sendo executado a partir da pró¬ 
xima instrução após a chamada USR; Fmalmente* a linha 90 co¬ 
loca o END, obrigatório em ASSEMBLY* 

Uma vez digitado* o programa deverá ser assem blado c gra¬ 
vado. Quando isto ocorrer, cada linha de instrução irá gerar po¬ 
sições de memória e mnemónicos* a saber: 


FFFO 


10 

20 

30 

FFFO 

21003C 

40 

FFF3 

11013C 

50 

FFF6 

01FFÜ3 

60 

FFF9 

EDB0 

70 

FFFB 

C9 

80 

00000 

TOTAL ERRQRS 

90 


Suponhamos que essa rotina tenha sido gravada com o nome 
de "ENTELA"; isto feito* poderá ser executada diretamente do 


DOS3GO Ativo* por meio do comando LOA D ENTELA 
< ENTER >. 

Vamos* Fmalmente* ao BASIC. É importante reservar espa¬ 
ço na memória para a sub-rotina carregada por LO A D. Olhan¬ 
do novamente a listagem, vemos que o programa tem sua origem 
na posição FFF0, que corresponde em decimai a 65520 (ou -16), 
que deverá ser o valor digitado em relação ao tamanho de me¬ 
mória (Memória Usada?)* Em BASIC, podemos comprovar is¬ 
so digitando: 

PRINT &HFFF0 < ENTER >, ou ainda melhor 
PRINT 65536 + &HFFFÜ < ENTER >* 

Uma vez em BASIC* nosso programa precisa especificar o en¬ 
dereço inicial da sub-rotina USR* o que se faz por meio do co¬ 
mando DEFUSR* que poderia ser: 

10 DEFUSR0- &HFFFQ ou 10 DEFUSR = &HFFFQ 

Para ver o resultado dessa sub-rotina* utilizamos um peque¬ 
no programa, que poderá ser assim: 

10 DEFUSR0 = &HFFFQ 

20 PRINT @0, “X" 

30 J-USR0 (0) 

40 PR\m@932r" 

Ao rodarmos o programa, instantaneamente a tela será "en¬ 
chida” com "xis”* ou seja lá qual for o caractere contido na li¬ 
nha 20* Lembrc-se de que com a instrução POKE as opções 
aumentam* 

Em BASIC* a solução é "POKAR" a sub-rotina na memó¬ 
ria. O próprio microcomputador pode fazer isso para nós. Veja¬ 
mos a lista de mnemónicos gerados na listagem do programa 
asscmblado: o primeiro valor é 2L Se digitarmos: 

PRINT&H21 <ENTER> veremos 33 

Se consultarmos o manual de operações do CP 500/300, ve¬ 
remos que para os valores mencionados na listagem do progra¬ 
ma assemblado (sempre encontrados) em HEXADECIMAL* 
teremos as equivalências: 

21 = 33 11 = 17 01 = 1 ED = 237 

00 = 0 01 = 1 FF = 255 B0 = 176 

3C = 60 3C = 60 03 = 3 C9 = 201 

que usaremos em BASIC, numa linha de instrução DATA. 

Uma das formas de se escrever o programa é esta: 

10 DEFUSR0 = &HFFF0 

20 DATA 33* 0, 60* 17* 1* 60* 1, 255* 3* 237, 176* 201 
30 FORI = 11012: READD: POKE&HFFFO + I* D: NEXT 
40 INPUT "ENCHER COM CHR$ ,f ;X 
50 PRINT@0, CHRS (X) 

60 J = USR0(0) 

70 PRINT@932 I < ”' 

A linha 20 específica os 12 bytes da sub-rotina USR, que se¬ 
rão colocados na memória através da instrução POKE contida 
na linha 30* dentro do loop nela existente; a linha 40 recebe o 
número do caractere na posição 0 do vídeo; a linha 60 faz a cha¬ 
mada da rotina USR e a linha 70 irá colocar o cursor na posição 
correspondente ao valor "especificado. 

Rápido, não? Agora já é possível a utilização de rotinas em 
linguagem de máquina em nossos programas BASIC. Este pro¬ 
cedimento pode ser padronizado para todas as sub-rotinas que 
desejemos "POKAR” na memória, em linguagem de máquina* 
a fim de agilizar sobremaneira o BASIC (disco). 

De acordo com a imaginação do programador* as sub-rotinas 
poderão incluir sons* desenhos com caracteres especiais* desvios 
etc*, até um total de 10 por programa BASIC (disco)* que serão 
definidas com DEFUSRG até DEFISR9* 

No próximo número* daremos continuidade □ estas informa¬ 
ções. Nu verdade* será unia dica da dica. Aguarde! 

F. Ftíívio G* Del Picchkt 
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0 AVANÇO EDUCACIONAL 
ATRAVÉS DA INFORMÁTICA 



O Sistema DIDATA do Santo Améri¬ 
co forma uma rede com um CP 500 
(computador central), dezesseis CP 
300 (terminais de aluno) e uma impres¬ 
sora P 720. 



A relação educação/informática é levada muito a 
sério no Colégio Santo Américo, em São Paulo. Pa¬ 
ra desenvolver a utilização dessa nova ferramenta edu¬ 
cacional, o reitor do colégio, dom Gabriel iroffy, 
criou o Departamento de Informática para supervi¬ 
sionar toda as atividades computadorizadas da esco¬ 
la. Sob a direção do professor Rudoíf Riedcrer, estas 
atividades são realizadas com o Sistema DIDATA, 
da CP — Computadores Pessoais, para as aulas de 
BASIC, programação, provas das matérias regulares 
e recreação, além da área administrativa, que se uti¬ 
liza do Sistema 700, da Prológica. 

Apesar das aulas de BASIC ainda serem opcionais, 
três turmas de 32 alunos cada se revezam, na sala es¬ 
pecial de informática, para aprender esta nova lin¬ 
guagem e desenvolver programas nas horas ociosas. 
Mas, a partirdoanoque vem o BASIC se tornará obri- 
Eatório no currículo do Colégio Santo Américo, não 
só para os estudantes da 5? série até o 3? colegial mas 
também para os alunos do primário. 

Para tanto, o professor Rudolf Riederer vem de¬ 
senvolvendo programas adequados e especílicos pa¬ 
ra cada ano escolar e área educacional, além dos 


trabalhos por disciplina e bateria de testes. Atualmen¬ 
te, os alunos já realizam estas baterias de testes por 
disciplina, agilizando tanto as atividades dos profes¬ 
sores como dos próprios estudantes, pois o progra¬ 
ma desenvolvido pelo professor Rudolf permite 
opções de testes, dentro da mesma disciplina, para 
todos os envolvidos. Estas opções são aleatórias, sen¬ 
do que a escolha é realizada pelo próprio computa¬ 
dor — eliminando o fantasma da “cola”. 

Segundo o professor Rudolf, a implantação da in¬ 
formática no Colégio Santo Américp vem alcançan¬ 
do o sucesso esperado, pois os estudantes respondem 
a este novo estímulo de forma entusiástica. Tanto que, 
para freqüentar a sala de informática na hora do re- 




GERAÇAO PROLÓGICA 


13 













REPORTAGEM 



creio, precisam de “senhas”, pois o número de com¬ 
putadores não comporta todos os interessados. 

Mas a informática no Colégio Santo Américo não 
se limita a programações curriculares. O reitor dom 
Gabriel, apaixonado pelos computadores, tem idéias 
mais avançadas para sua utilização. “O computador, 
por enquanto, é somente uma ferramenta. Mas que¬ 
remos mais que isso. Vamos tornar a informática um 
meio educacional; para tanto, estudamos e desenvol¬ 
vemos softwares mais específicos” — afirma dom 
Gabriel. 


DIDATA 


O Sistema DIDATA, utilizado no Colégio Santo 
Américo, é uma eficiente e poderosa ferramenta pa¬ 
ra a área educacional — abrindo novas possibilida¬ 
des para ensino e aprendizagem. 

Conectado a um computador central, um CP 500 
com dois drives, c até a 16 computadores auxiliares 
(CP 500 ou CP 300), também chamados de “termi¬ 
nal de aluno”, este sistema salva, carrega ou impri¬ 
me arquivos, programas e dados do aluno — 
permitindo que todos os terminais acessem a impres¬ 
sora c os drives do computador central. 

A partir dessa rede, o Colégio Santo Américo de¬ 
senvolveu vários softwares específicos, adequados às 
exigências das necessidades dos alunos. Além dos soft¬ 
wares do colégio, os próprios alunos também têm 
oportunidade de desenvolver seus programas, como 
é o caso de Fábio Casagrandc, do 2? ano colegial, 
que desenvolveu o programa “Atravessando o Rio”. 


“Principalmcnte — continua — porque o re¬ 
torno dos alunos c a retenção de informações são mui¬ 
to maiores com a computação como meio de 
aprendizado”. 

A partir deste princípio, o Colégio Santo Améri¬ 
co também fará parte do Videotexto e do Cirandão, 
para utilização do banco de dados, além da forma¬ 
ção de um clube de usuários do Santo Américo com 
os pais que possuem computadores pessoais, para co¬ 
municações, relatórios e boletins escolares. 

Além destas funções, dom Gabriel está muito in¬ 
teressado nas aplicações musicais do computador. 
Com um CP 500, ele tem realizado, através de soft¬ 
ware específico, ensaios com o coral do colégio, per¬ 
mitindo as mais complexas variações de tons em 
tempos recordes. 

Por enquanto, o Departamento de Informática tem 
apenas úm Sistema DIDATA. No entanto, o reitor 
e o professor Rudolf planejam uma ampliação des¬ 
tas salas, já que as aulas de BASIC farão parte do 
currículo escolar. Para as salas de Educação Artísti¬ 
ca e primário, eles pretendem utilizar o CP 400 CO¬ 
LOR, devido à necessidade de cores e desenhos 
gráficos. 


COMPOSIÇÃO 

O Sistema DIDATA possui três componentes prin¬ 
cipais: o próprio DIDATA, um computador central 
(CP 500) e dezesseis terminais de aluno (CP 300 ou 
CP 500). Mas, assim como fez o Colégio Santo Amé¬ 
rico, é possível expandir esta configuração, acrescen¬ 
tando, por exemplo, uma impressora ligada ao 
computador central. 

A utilização do DIDATA é extremamente simples, 
uma vez que todo o sistema é controlado por soft¬ 
ware, restando apenas uma chave que pode selecio¬ 
nar o Modo de Controle Automático ou Programado. 

Para a utilização da impressora, o DIDATA se uti¬ 
liza do Sistema Spool: todas as requisições para im¬ 
pressão vindas dos terminais de aluno são enviadas 
ao computador central, que verifica se a impressora 
está disponível. Se estiver, a impressão é efetuada nor- 
malmente. Caso contrário, o central armazena os da¬ 
dos a serem impressos em um arquivo de Spool e os 
envia à impressora somente quando esta estiver li¬ 
berada. 
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MODO GRÁFICO PONTO A PONTO COM QUALQUER MICROCOMPUTADOR 


As possibilidades da computação são imensas, desde que 
você saiba escolher os equipamentos adequados às suas ne¬ 
cessidades e explorar todas as capacidades dc hardware e 
software. No caso da impressora P 500» por exemplo, pou¬ 
cos sabem de sua capacidade de operação pomo a ponto 
no modo gráfico, com qualquer microcomputador, ines- 
mo que ele não seja gráfico. 

Esta possibilidade da P 500 pode scr efetivada através 
de comandos enviados pelo micro, configurando assim a 
impressora no modo gráfico ponto a ponto, e, a partir daí, 
controlar uma ou todas as 6 agulhas de impressão para 
se obter gráficos em alta resolução. 

Os comandos necessários para se conseguir tal perfor¬ 
mance são os seguintes: 


COMANDO 

CÓDIGO 

DECIMAL 

AÇÃO 

<ESC> <Vo> 0 

27, 37, 48 

Ativa o modo gráfico. 

<LF> ou <CR> 

10 ou 13 

Ambos ou isoladamente provocam o 
salto de linha no modo gráfico. 

<nsc> <cr > 

27, 13 

Sai do modo gráfico ponto a ponto. 


É importante saber que, quando a impressora P 500 es¬ 
tiver configurada no modo gráfico ponto a ponto, não se¬ 
rá possível imprimir caracteres comuns. 

CÓDIGOS DECIMAIS 

O controle das agulhas é feito através de códigos deci¬ 
mais enviados à impressora, sendo que cada agulha tem 
um valor próprio. Por isso, o código necessário para acio¬ 
nar um certo conjunto de agulhas é obtido pela soma dos 
valores das agulhas que se quer imprimir e, a esse total, 
adiciona-se 32, 

Explicando: 



(Valor) 

(Valor) 

lf agulha 

1 4? agulha 

8 

2? agulha 

2 5? agulha 

16 

3? agulha 

4 6? agulha 

32 

* 

Se você quiser imprimir este conjunto: 

o 

• 

Q 


n 

» 

O 

c necessário somar 1 1 + 4 ,+ 16 

- 1 - 1 1 

+ 32 = 

portanto, 

O 

o código será 53. 



A seguir, apresentamos uma tabela com os códigos De¬ 
cimais e Hexadecimais dc todas as combinações possíveis 
com as ó agulhas. 


O 32 D 2 ÚH * J 1 D 21 M ca .U[l 2231 • > 51 ) 2 >M ca JfiD WH • V?P 25 H 


411 ) 29 H C 42 D 2 AH * 4 Mí 2 BH 0 44 D 2 CH * 4 HJIDH o 4 ÓD 2 EÍI 


o 4â[) uni * [> mu o <un * jipjjH o í:i> mu • mdjíh o md ?óh 


a Sftfi IÍH * f;i> JSUI Ú JtPJAH • o 60D JCH • UD1DH * 62D JEH 


3 H[1 (flll «6ÍD43H ca MP 42lí * 67 P JJIt íHBUH + fflTMJH o Tflf) «H 


3 o7JO«H * 7JÍÍ49H O 74D 4AH • e 7fip *CH * 77p4pH oTSDJf.H 

2o O t * D o * 

3o o o o * i * 


o Mj tÍ 51 Hl • ÍID Í)M ca 32D J2H • Ml) 4)11 0 ML) 54JI * MD 55H ca 66D SÍH 


ú nfn 3«i[ * mi mi o 5 ah * fii) sim o v:i> jch * wd smt ca 9 íd jeh 


Para enviar estes códigos para a impressora, quando 
se estiver trabalhando cm BASIC, deve-se utilizar o 
comando: 

LPRINT CHRS(x) 

onde x c o código que sc deseja enviar. 


Além dc todas estas possibilidades, vale ressaltar que 
a impressora P 500 pode ser configurada para quatro ti¬ 
pos de caracteres, resultando em quantidades diferentes 
de pontos por linha: 

Caractere Comprimido/Expandido ... 420 pontos/linha 

Caractere Expandido . 240 pontos/linha 

Caractere Normal . 480 pontos/linha 

Caractere Comprimido. 840 ponios/linha 
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rOTOS PLllVlO BORGES 


UM PASSO À FRENTE 



É chato! Sem dúvida uma das maiores in¬ 
coerências com que qualquer usuário de micro 
se depara: de posse de uma poderosa ferramen¬ 
ta da avançada sociedade de informática, te¬ 
mos que nos ver humilhados por horas 
digitando aqueles intermináveis programas dos 
livros e revistas especializados, sendo que o 
computador sempre dispõe de uma forma mui¬ 
to mais prática para carregar os programas; no 
mínimo, uma entrada para gravador cassete. 

Então, estava mais do que na hora das edi¬ 
toras começarem a se atualizar e lançarem ver¬ 
sões gravadas de suas obras. É claro que o livro 
ainda é indispensável (e não me arrisco a dizer 
que sempre será!) para nos dar aquelas infor¬ 
mações suplementares que uma listagem, por 
mais comentada e user-friendly, não consegue 
absorver. 

A Editora Campus dá o primeiro passo nesse 
sentido, lançando a série “Software” que, além 
dos já conhecidos livros do tipo coleção de pro¬ 
gramas, dispõe de cópias dos programas cm fi¬ 
ta, vendidas separadamente. 

Os dois livros que chegam às nossas mãos 
são o Rotinas Matemáticas para Micros 232 
páginas, de Caetano R : A. Loiola, e o Desa¬ 
fio: Os Mais Excitantes Jogos em BASIC, 254 
páginas, de Antonio Julio Botelho, Os dois são 
bem escritos e de fácil assimilação e trazem pro¬ 
gramas para a linha Sinclair que podem, com 
alguma habilidade, ser convertidos para outros 
micros. 

Sem duvida, essa iniciativa inaugura uma no¬ 
va etapa na literatura nacional de informática 
e esperamos que a tendência persista. 


Evoluindo no BASIC TK, de 
Bernardo Stein, 136 páginas, 
Editora Nelph. 



Na tentativa de abordar 
com uma objetiva diferente 
o aparentemente exaurido fi¬ 
lão de programas para a li¬ 
nha Sinclair {pelo autor 
chamada linha TK), Steín 
consegue reprisar alguns 
clássicos para esta linha com 
maestria, dando consistência 
à sua obra. Deve ser lido por 
aqueles que pretendem o 
máximo de informações so¬ 
bre o seu microcomputador, 
sendo dispensável aos pro¬ 
gramadores experientes. 


ESÇAO (n-m-p) 

Um Computador NÃO-Von 
Neumann, de Wagner Wa¬ 
ll eck Martins, 268 páginas, 
Editora Cartgraf. 



Este livro expõe as bases 
do projeto de uma máquina 
não-Von Neumann, cuja 
principal característica é a 
capacidade de processamen¬ 
to simultâneo, Com essa 
obra, o professor Waneck 
divulga as bases de sua pes¬ 
quisa cm busca dos compu¬ 


tadores de quinta geração, 
Uma leitura indispensável 
para quem quer se manter a 
par da evolução dos micro- 
comput adores. 


O Seu Micro c o Mundo Ex¬ 
terno, de Bernhard Wolf- 
gang Sehõn, 128 páginas, 
Editora Nelph. 



Uma série de periféricos 
muito bem selecionados, in¬ 
cluindo aplicações impres¬ 
cindíveis de bancada, como 
o gravador de EPROMs ou 
o analisador lógico de 24 ca¬ 
nais,. Excelente para o “ki~ 
teiro”. Apesar/ de ser 
baseado na linha Sinclair, o 
detalhamento dos projetos 
permite fácil adaptação ás 
demais famílias de micros. 


Curso Intensivo dc Micro¬ 
computadores, de Louis E. 
Frenzel Jr., 336 páginas, 
Editora Técnica Eletrônica 
— Editele. 



Numa mesma obra, três 
excelentes cursos sobre com¬ 
putadores: visão geral, hard¬ 
ware e software. 


ló 
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SHÍFT 


BRtAK 


O professor ideal 


informática. 


O CP 200 S é o parceiro 
ideal dos iniciantes. 

pára os iniciantes desenvolve as primeiras 
Sn mi inrln Hq N Ç° es em computação. 

I IU I I IUI IUU UCI Qualquer criança pode utiliza 

lo para resolver tarefas 
escolares ou simplesmente 


curtir os mais divertidos jogos 
de vídeo-game. 


TECNOLOGIA ] 
PROLQGlCA i 


COMPUTADORES PESSOAIS 

RUAPTOLOMEU, 650Af LA SOCQRRO-SÂO PAULO-SP 
CEP 04762 ■ FONE fPBX) 52 ? ■ 1633 


PlOT UNPLOT REM PUN RAND REJURN tf INPUT 


SIN COS TAN IN 7 RND STR$ CHR$ COÜh 

NEW SAVE DIM FOR GOTO GOSUB LO A D LIST LET FüNCVON 


iihih a 


ARCSIN ARCCOS ARCTAN SGN ABS SOR VAL LEN USR 


COPY CtEAR CONT CLS SCRQLL NEXT PAUSE 


SHif I 


IN XBYS NOT 7T 


ÍN EXP AT 




































































QUEM TEM UM, TEM FUTURO. 


VOCÊ TEM QUE ESTAR PREPARADO 
PARA SE DESENVOLVER COM OS 
NOVOS TEMPOS QUE ESTÃO AÍ. E O 
CP 400 COLOR É A CHAVE DESSA 
EVOLUÇÃO PESSOA], E PROFISSIONAL 






PORQUÊ? 

PORQUE 0.CP 41X1 
COLOR É UM 
COMPUTADOR 
PESSOAL 
DE TEMPO 
INTEGRAI,: ÚTIL 
PARA A FAMÍLIA TODA, O DIA 
INTEIRO. 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO, É MUITO MAIS 
EMOCIONANTE PORQUE, ALÉM DE 
OFERECER JOGOS INÉDITOS, 

É 0 ÚNICO COM DOIS JOYSTICKS 
ANALÓGICOS DE ALTA 
SENSIBILIDADE. QUE PERMITEM 
MOVLMENTAR AS IMAGENS 
EM TODAS AS DIREÇÕES, MESMO. 

NA HORA DE TRABALHAR E 
ESTUDAR, O CP 400 COLOR MOSTRA 
SEU LADO SÉRIO: MEMÓRIA 


EXPANSÍVEL, PORTA PARA COMU¬ 
NICAÇÃO DE DADOS, SAÍDA PARA 
IMPRESSORA E UMA ÓTIMA NITIDEZ 
COM IMAGENS COLORIDAS. 

COMO SE TUDO ISSO NÃO 
BASTASSE, A PROLÓGICA AINDA 
OFERECE A GARANTIA DE 


QUALIDADE DE QUEM E I.IDER NA 
TECNOLOGIA DE COMPUTA¬ 
DORES, E O PREÇO MAIS ACESSÍVEL 
NA CATEGORIA. 

NUMA FRASE: SE VOCÊ NÃO 
QUISER CHEGAR ATRASADO AO 
FUTURO, COMPRE SEU CP 400 


COLOR IMEDIATAMENTE. 

EMOÇÃO E INTELIGÊNCIA NUM 
EQUIPAMENTO SÓ. 

• IMAGENS COM ATÉ 9 CORES. 

• ÓILMA RESOLUÇÃO: -19.152 PONTOS, 

• DUAS VERSÕES A SUA ESCOLHA: 

IÓK OU 64K DE MEMÓRIA RAM, 

• MEMÓRIA RAM EXPANSÍVEL: VOCÊ 
COMEÇA COM 16K E PODE CHEGAR 
ATÉ 64K COM DISQUETES. 


NA TEU, ENQUANTO OUTROS TÊM 
SOMENTE 


8 DIREÇÕES. 

> GRANDE QUANTI 
DADE DE 
PROGRAMAS 
À DISPOSIÇÃO: 
APLICATIVOS 
PESSOAIS, PROFIS¬ 
SIONAIS E JOGOS. 




VEJA, TESTE E COMPRE 
SEU CP 400 COLOR NOS MAGAZINES 
E REVENDEDORES PROLÓGICA. 

TECNOLOGIA ■■■ 
PROLOG1CA 

■ ■ 
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1. Minicalc — Planilha Eletrônica 


Aplicativo para o CP 400 COLOR 

Este programa, cedido pela Peek & Poke, é um 
modelo simplificado de planilhas mundialmen- 
le conhecidas como Visicalc e outras. Nosso ob¬ 


jetivo não é substituir as planilhas mais 
sofisticadas, programadas em linguagem de 
máquina, mas sim fornecer uma opção para 
aplicações que não envolvem grandes quan¬ 
tidades de ciados ou operações muito com¬ 
plexas . 

. 2, 3, 4 e 5 

2. Agenda COLOR 

Aplicativo para o CP 400 COLOR 

Este programa transforma seu computador pes¬ 
soal cm uma eficiente e ágil agenda, com até 

99 nomes, endereço, telefone e data de aniver¬ 
sário, com possibilidades de inclusão c alte¬ 
ração . 

. 6, 7 e 8 














PLANILHA ELETRÔNICA 

MIIMICALC 

CP 400 COLOR 64 e 16 Kb RAM 


MINICALC é um programa BASIC 
que exerce a função de planilha eletrô¬ 
nica, Em linhas gerais, MINICALC é 
um modelo simplificado de planilhas 
mundialmente conhecidas como 
VISICALC e outras. O objetivo do pro¬ 
grama naturalmente não é substituir as 
planilhas mais sofisticadas programa¬ 
das em linguagem de máquina, mas sim 
fornecer uma opção barata para aplica¬ 
ções que não envolvam grandes quanti¬ 
dades dc dados ou operações muito 
complexas. 

Uma planilha eletrônica pode ser 
comparada a uma folha de papel em 
branco dividida em linhas e colunas, 
MINICALC dispõe de 9 colunas e 43 li¬ 
nhas, totalizando 387 posições, chama¬ 
das de “células”. Determína-se a célula 
pela coluna e linha que ela pertence. As¬ 
sim, a célula 4,11 é a posição de cruza¬ 
mento da coluna 4 com a linha 1L 

A grande vantagem das planilhas e!e- 
[rônicas é a capacidade de ter valores va¬ 
riáveis em algumas células, ou seja, 
algumas células são o resultado de fór¬ 
mulas que fazem referência a outras cé¬ 
lulas. Assim, se mudam os os valores das 
células originais, todas as células cujas 
fórmulas fazem referência às originais 
serão automaticamente recalculadas. 
No momento atual, quando tantos va¬ 
lores são calculados em função de índi¬ 
ces como ORTN, UPC e outros, 
MINICALC pode ser uma grande aju¬ 
da para muitos usuários de CP 400, 

COMANDOS 

O programa começa com a planilha 
em branco, com linhas dei a 13 e colu¬ 
nas de 1 a 3. Em cima da tela você verá 
um sinal de maior “> M e o cursor no 
começo da linha. Esta é a linha de co¬ 
mandos, que são os seguintes: 

G — mnemónico de GOTO. Serve 
para ir à célula especificada no coman¬ 
do. Por exemplo, tecle G9J1 para pas¬ 
sará célula 9,11 (coluna 9, linha 11). Use 
< ENTER > para voltar ao modo de 
comando, 

V — ver a fórmula presente em algu¬ 
ma célula. Teclando-se V4,7, teremos o 
dispíay da fórmula que você atribuiu à 
célula 4,7 (coluna 4, linha 7). Use qual¬ 


quer tecla para voltar ao modo de 
comando. 

S — faz o 4 ! SAVE” dos dados em cas¬ 
sete. Após teclar o comando você deve 
preparar a gravação e digitar o nome do 
arquivo que será gravado, 

L — leitura de um arquivo previa¬ 
mente gravado em cassete, Você deve di¬ 
gitar o nome do arquivo que o programa 
deve procurar. 

P — imprime os dados presentes na 
memória. Você pode escolher a linha 
inicial e a línha final a ser impressa. 

X — saída do programa. Volta ao 
BASIC, Deve sempre ser usado. Não use 
<BREAK> para sair do programa. 

U — recalcula todas as posições que 
contenham fórmulas. Deve ser usado 
sempre que se alterar algum dado que 
entre nas fórmulas de outras células. A 
tela se desorganizará por alguns segun¬ 
dos, enquanto os cálculos estão sendo 
efetuados. 

F — entrada de fórmulas. 

ENTRADA DE DADOS 

Para a entrada dc dados, basta teclar 
os dados na posição. Comece com o co¬ 
mando G para levar o cursor até a posi¬ 
ção desejada dentro da planilha. 

Os dados podem ser strings (títulos 
que contenham letras ou números) ou 
dados numéricos. Você pode entrar com 
até 9 dígitos por célula. Para facilitar a 
entrada de linhas de títulos, o cursor 
passa à próxima célula da mesma linha 
após a entrada do nono dígito ou carac¬ 
tere. Você pode usar a seta para a esquer¬ 
da para corrigir eventuais erros de 
digitação, 

Para finalizar a entrada de um dado, 
você pode usar: 

< ENTER >que o levará de volta ao 
modo cie comando 
T (seta para cima) para 

passar à linha anterior 
i (seta para baixo) para 

passar à próxima linha 
-* (seta à direita) para pas¬ 

sar à próxima coluna 
<SHIFT> —(seta à esquerda) para 
passar à coluna anterior 

Você pode passar com o cursor pela 
planilha sem apagar o conteúdo das cé¬ 
lulas, usando as quatro setas. Quando 


não houver linhas na direção da seta te¬ 
clada, você voltará ao modo de coman¬ 
do. Por exemplo, se você estiver na 
coluna 1 e usar a seta à esquerda, você 
voltará ao modo de comando, pois não 
há linha 0, 

Estando numa céiula e teclando-se 
qualquer tecla que não seja < ENTER > 
ou as setas, o conteúdo da célula será 
apagado e você deverá entrar com no¬ 
vo dado, 

FÓRMULAS 

Para começar, vejamos os conceitos 
de operandos c operadores nas fórmu¬ 
las, Na seguinte operação: 

1 + 4 - 2 

1,4e2sao os operandose M 4- 
são os operadores, Nas fórmulas usa¬ 
das em MINICALC, os operandos po¬ 
dem ser o conteúdo de outra célula ou 
uma constante (valor numérico). As cé¬ 
lulas são indicadas pelos colchetes 1 ‘ l 11 , 
conseguido teclando-se <SHIFT> se¬ 
ta para baixo, e “]”. conseguido teclan- 
do-se <SHIFT> seta à direita. Entre 
os colchetes fica a designação da célu¬ 
la: coluna e linha separadas por vírgula. 

As constantes devem estar delimita¬ 
das por (sinal de menor) e 
(sinal de maior). Assim, se você usar o 
comando F3,3 para determinar a fór¬ 
mula da céiula 3,3 c teclar; 

[1,2] - <3.5> 

o conteúdo da célula 3,3 será igual ao 
da célula 1,2 menos o valor 3.5, Lem¬ 
bre-se que o indicador de decimal é o 
pomo (não a vírgula). 

Os operadores são sinais aritméticos 
normais: + , - , * e / . Ao contrário das 
fórmulas aritméticas normais, onde há 
uma precedência ou hierarquia de ope¬ 
radores, as fórmulas de MINICALC 
são calculadas na ordem em que se en- 
contram, da esquerda para a direita. 
Portanto, deve-se usar parênteses para 
indicar as operações que devem ser efe- 
tuadas antes: 

<12> 4- <3>*<2> —30 !! 

<12> + (<3>*<2>)=18 
Você pode usar vários níveis de parên¬ 
teses. 

Outro recurso frequentemente utili¬ 
zado cm planilhas é a somatória de li¬ 
nha ou coluna. Você pode somar numa 
fórmula determ inadas posições da linha 
ou coluna onde ela se encontra. Por 
exemplo, se na célula4,11 (coluna4, li¬ 
nha 11), você usar a fórmula: 

C2,7 

obterá a soma 

[4,2] + [4,3] + [4,41 + [4,5] 4* 

+ [4,6] 4- [4,7]. Usando: 

Ll,3 
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obterá a soma [1,11] + [2,11] + [3,11], 
Outros recursos são 1 e A, I indica nú¬ 
mero inteiro, ou seja, as casas decimais 
serão desprezadas, e A índica valor ab¬ 
soluto, Devem ser usados antes de pa¬ 
rênteses, Exemplos: 

I{<10>/<3>) = 3 
Á(<2.5> - <13>) = 10,5 
IA«4.6> - <8»=3 

O PROGRAMA 

Explicamos aqui de maneira sucinta 
a função de várias linhas de MÍNICALC: 

10-90 Inicialização, dimensionamen¬ 
to e preparação da tela, 
100-250 Espera e analisa um coman¬ 
do. Direcionamento do pro¬ 
grama, 

260-320 Interpreta comandos relati¬ 
vos a células (F, G e V), 
330-350 Executa comando V, 
360-370 Localiza posição da célula na 
tela, 

380-470 Entrada de dados, 

480-520 Entrada de fórmulas (coman¬ 
do F), 

540-560 Comando U, Recalcula todas 
as fórmulas. 

570-620 Comando S, Grava os dados 
em fita, 

630-670 Comando L. Leitura de da¬ 
dos do cassete, 

680-730 Parte da rotina de avaliação 
das fórmulas, 

740-780 Limpa a tela, 

790-810 Escreve números de linhas, 
820-860 Comando P, Imprime os da¬ 
dos, 

870-930 Mudança de tela. Dlsplay de 


nova área da planilha, 

940- Rotina de retardo, 

950-1460 Avaliador de fórmulas, 

OBSERVAÇÃO 

Em certos tipos de aplicação, a lin¬ 
guagem BASIC tem a limitação da ve¬ 
locidade de execução, que chega às 
vezes a comprometer a eficiência do 
programa, MÍNICALC usa alguns re¬ 
cursos para superar este problema, O 
primeiro é a limitação de colunas e li¬ 
nhas, O segundo é o uso dos chamados 
PGKEs de velocidade, Acessando-se 
certas posições de memória, podemos 
modificar a velocidade de processamen¬ 
to do computador para determinadas 
funções. Contudo, estes recursos não 
estão documentados pelo fabricante do 
CP 400 e, portanto, não são 100% ga-^ 
rantidos. 

Assim, se você não se incomodar 
em esperar mais alguns segundos para 
obter os resultados, ou se você ex¬ 
perimentar algum tipo de problema na 
execução do programa (o que dificil¬ 
mente acontecerá), retire as instruções 
POKE 65495,0 das linhas 10, 620, 660 
e 860 e a instrução POKE 65497,0 da 
linha 540, 

Note que as operações de impressão 
e de leitura ou gravação em cassete fi¬ 
cam prejudicadas com ambos os POKEs 
e, portanto, estes são desligados antes 
de estes comandos serem acionados, as¬ 
sim como na saída do programa (opção 
X), Por isso é importante não sair do 
programa com o uso de < BREAK >, 
pois o computador continuaria funcio¬ 


nando irregularmente, impossibilitan¬ 
do todas as operações com cassete ou 
impressora. Por este mesmo motivo, 
desaconselhamos que se rode o progra¬ 
ma experimentalmeme antes que o mes¬ 
mo esteja totalmcnte digitado e gravado, 

O POKE de superveíocidade (posi¬ 
ção 65497) altera aíé a saída de vídeo, 
embaralhando a imagem da televisão e 
por isso só foi usado no comando U, 
que recalcula todas as fórmulas do pro¬ 
grama, e que seria sensivelmente mais 
lento caso seu processamento fosse efe¬ 
tuado na velocidade normal do com¬ 
putador. 

Para desligar a velocidade extra 
(POKE 65495,0), usa-se a instrução 
POKE 65494,0 e para desligar a super- 
velocidade (POKE 65497,0) usa-se 
POKE 65496,0), 

CONCLUSÃO 

Esperamos que você faça bom uso 
de MÍNICALC, que apesar de simples 
é um programa extremamente útil pa¬ 
ra certas aplicações, No caso de se 
mostrar muito limitado devido à com¬ 
plexidade de operações ou quantidade 
de dados, você ao menos terá conse¬ 
guido conhecer o mecanismo das pla¬ 
nilhas eletrônicas, que são hoje a 
aplicação mais popular dos microcom¬ 
putadores, ao lado do processamento 
de textos e dos programas gerais de ca¬ 
dastro. 

Em caso de dúvida, consulte a Peek 
& Poke e conheça melhor a capacida¬ 
de de seu CP 400 e sua linha de pro¬ 
gramas profissionais. 


10 / x-x*xx- xxx x--xXxx- xxx x*■*x xx****** 


20 x * 
30 '* MÍNICALC * 
40 * 
50 '* PEEK & POKE * 
60 '* * 


70 '* ATENCAÜs USUÁRIOS DE lóK * 


80 '*USE CLPAR 3500 NA LINHA 10* 


9 0 / X X- X X * -X X X X X X X- X x- X- X X- x- X- X X X- X X X X X- X- 


:100 POKE 65495 r 0 s PCLEAR1 = CLEAR70 
00?DXML*<9r43) ,V(M0) ,I*(9,43) 
j. 10 CLS 

120 FORT» 1088TOU 19 s P0KFT, 32: NEX 


T: PO K E1101,50 = POKE111 1 ,51*POKE10 
91 * 49 2 PRXNT<ü9ó * li n ? 

130 FORTUITO 12:PRIÍITRIGHTS(STR$( 
T) r 2 > = NF.XT 
140 PRINT"13 ,i j 

150 FQRT-1 121TGí506STEP32:P-PEEK 

(T) : JFP>ó3THE#dKET,P-Ó4 

160 NEXT»FQRT“Í120TO1505STEF32:P 

-PEEK(T)sIFP>63THENP0KET,P-64 

170 NEXT 

100 XS-0:: YS*0 

190 PR IN T 0 0 r 11 > 11 : PR INT: F == 2 : fi$ — 1,11 s 
CÍ= J * ,i nPRINTíí!p y í, ' 1 ? 

200 fl*«INKEY* :IFA$= ,,ll THENPRINTéP 
* CHR$ (128) s !f GOTO200 
210 FKINT@P*GHR*<33)?:IFfl*=CH«4< 
13)THENS5S 

220 IFB$ = CHR*C-B) AND LEN<C*)>0TH 
ENP=P-1:C*«i EFT*íC* fP^ 2>=0010208 
230 ns*=C*+R* 

240 PRINTÔPf R-* ? sP»F+l:: RÜTG300 
250 L$-L EFT1> ( -1) 
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£60 X FL*~ " B 11 THE!:NF ~0 s§DT035 % 

£70 TFL$ ; - "F "THF.NF-1 9$ÜTO350 

£80 IFL$<*"V"THifSlF'=2 :BàTO350 

290 I F L$ = " U 11 THFN620 

300 IFLS = ,, S ,, THEN6ÜS0 

310 IF L $ - 1 ' L 11 THFN710 

320 IFL$“"X"THEN PÜKF 65494r0sOL 

0! EM) 

338 I F L $ = ■ ■ P 1 ' G 0 S U B 9 0 0 
348 GOTO198 

350 L* = " " : FORT= £ TOL E N <C 1) r, M* = : MID 
í < C#,T 7 1 )sIFM* = n r"THEN3S0 
368 Lfc-LÜi+H* 


370 NEXT s GOTOl90 

380 L$~RIGHT* ( L$ 7 J.) sX-VRL(L* ) -XS 
390 L*=R1GHT* < C* * UEN < C* >-T) 

408 Y=UHL (L$ ) -YS 
410 T.F FO2GQTO450 

HtV.0 X r L.tlN (. 1 * (, A '*AÍ> r JtIS) ; -0 Ru 1 u 


1.98 ELSE Ii»l 

430 PRINT032rSTRING*C 32 r 3£)? sPRI 
NT032 tMID*'< I$(X+X97Y+YS) 7 1 + 32# (I 

l-i> 7 32).; 

448 I1*»INÍKEY* ;IFHi="" GOTO 440 
ELSE IF LEN <I* <X+XS 7 Y+YS)) >32* X 
i THEN Il«Il+l50lTO4ã0 ELSE GOTO 
190 

450 IF X<1 OR X>3 OR Y<1 OR Y>13 
THEN SX = XS S Y~ YSGG TD958 ELSE P 
RINT032, STRING$<32 7 32); 

460 P~Y*32+X#10 + 57 sI FF- 1 THENGOSU 
8570 s GOTOl 90 ELSE L*=»LEFT$ (Lí < X+ 
XS 7 Y+YS.) 7 1) T-0 :: IF LEN<L$)»0 THE 
N L$~" " 

478 R$-INKEY$ü TFfi$=""flNDT=0THENP 
RINTSP 7 CHR*(128);;GOSUB1020 s T = í s 
G G T 0 470ELSEIF fl *=**'" AND T* 1THENFR X N 
TâP.LÍ;s T = 0:GOSUB1820;GOT0470 
480 PRINT(3P ,L$?: IFR$~CHR$ (13 ) THE 
N 5 60 ELSE l FR$=CHR$( 18) T H EN Y=Y +1G 
ÜTO450ELSE.TFR$"CHR$ (9 JTHENX-X+I s 
GOT 0450 


490 TFRÜ-CHRíÜ ( 94 ) THENY--Y-1 :GOTO4 
50EL.SEIFR« = CHR* (21) ÜRfl$=CHR$ ( 8 ) T 
HENX=X-i I-GOTO450 

500 PRINTaP, 1 ’ " ; i !...$ (X+XS 

- Y + YS) = " 11 ; L$~'‘ " 5 GOTO5C0 

5i 0 fl$~ INKEYí ; I." THENPFi INT0P 

,CHR*(120)?:GOTO510 

520 PRINT0P 7 " " ; :IFfl*=CHR*< 13.)T 

HEN560 ELSE IF fl*«CHR$(10) THEN 

Y=Y+1s GOTO 450 ELSE IF R*=CHR*< 

9) THEN X-X+1 GOTO 458 

530 IF fl$“CHR$<94) THEN Y-Y-lsGÜ 

TO 459 Ei..SE IF R$ = CHR$ <21) THEN 

X-X-in GOTO 450 

540 IFRít-GHRÍ (8) RNDLEN ( L$ (X+XS 7 
Y+YS))>0THENP-P-1sL*(X+XS 7 Y+YS)= 
LEFTí<L$(X+XS, Y+YS )7 LEN(Lí(X+XS, 


Y+YS))-l)s GOTO 510 

550 L$(X+XS 7 Y+YS )~L $(X + XS» Y+YS ) + 

fl * s P R I N T tü F : ' - fí $ ? s P* P + 1 k I F L. E N < L $ ( X 

+XS»Y+YS)y>=9 THEN XiX + 1 s GOT 0 4 5 

0 ELSE GOTO 510 

568 GOTO 1 90 

570 PR INT 0P 7 C HR $(186) ; " 11 ? 

580 F' RINT00 7 1 $ ( X+X S 7 Y + Y S ) 

590 PRIN T00 7 '*" ; :: L I NE INPÜT I $:: IFI $ 
= " N 1 ' Ti-IENPRI NT0P 7 LL < X + XS 7 Y + YS ) ; :G 
OTO19SELSEO-0: I* < X+XS 7 Y+YS > = 1* s X 
R=X + XS d YR-Y+YS 
600 GÜSUB1030 
610 GOTOl98 

628 U-l :: P0KE654 97 r 0 ; F0R Y -1 TO4 3 :: F 
0RX=1TÜ9: IFIÍ (X» Y) =" "THENÓ40 
630 lI~I$(X7 Y) iX*a""j Y* = , '"EXfl=X s 
YO=Y:GOSUB1030 

640 NEXTX 7 Y :: P0KE65496 r 0 s U=0 s GOSU 
8 828; EDRG=98TO480STEP32 ;PRI NT00 
r STRINGÍ (38 7 32);:NEXT:PRINT8482 7 
STRING$(29r32);sP0KE1535 7 96 :FORX 
=ÍTO3:FGRY=1TO13:FRINT@Y*32+X*10 
+57 7 L$( X+XS 7 Y+YS);s NEXTY 7 X: GOTOl 
98 

650 PR INT0 0 7 STR I NG$(32 7 32 >;sPRIN 
T@0r ""; 

660 flfl=~l : INPUT , 1 NOHE";TR$ 

670 PÜKEÓ5494 7 0 OPEN "0" 7 iíflfl 7 Tfl$ 
680 FQRT=1TQ9 ;F0RY=1T043:PRINT4R 
R 7 L$ ( T 7 Y ); PRINT4PFI 7 T$ (T 7 Y);NEXTY 
7 T 

690 GLOSE MRfl 

780 PGKE65495 7 0;GOTO 190 

710 PRINT007STRING$(32732);sPRIN 

Tfâ0 7 “ 11 ; sflfle-1 

720 INPUT "NOME" f Tfl$ 

730 F'0KE65494 7 0 s OPEN 11 1 ” r Hflfl 7 Tflí 
740 FÜRT=1TQ9 s FÓRY-l T043;INPUTHfl 
R7Í...$(T7Y) sINPUTHflfl» I*(T»Y) : NEXTY 
7 T ; CL0SE4Í-IH : P0KEÓ5495 7 0 
750 GOSU B 820 SF0RT = 1 T03sF0RY-1T01 
3 aP“Y*32+T* 10+57:PRINTffiP 7 L$ (T+XS 
7 Y + YS) ; s NPiXTY 7 T s6OTO190 
760 Illi "-" 11 

770 T=T+l!M«=MID$(I*7T, 1)sIFM$“" 
>"THEN798 

780 1 1 11 $ + M$: 1 F T > 100THENGOTOl1 
20ELSEGOTO770 

790 M( 0 ) = URL<ní) ;; 0~0 +1 s GOTO 1230 
800 IFIí*="N"THEN1.98 
810 RETURN 

820 F0RY = 1T013sFOR X-1T03: PRINT0 
Y*32+X* 10+57 7 " 11 r s NEXTX 7 Y 

830 FOR R-l 131 TO 1515 STEP 32 
840 POKEfl 7 96;POKER+1 7 96 s POKEP+10 
7 96;P OKE fl+11 7 96:PÜKEfl+20,96 
850 NEXTR 
860 RETURN 
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870 FOR Y =1 TO 9 :P=.1.088+Y*32:T 
=YS/Í0- j, +49:POKEP. T: NEXTY 
880 FOR Y=10 TO 13sP=Í088+Y*32:T 
=YS/10+49sPOKEP,T:NEXTY 
890 RETURN 

900 PRINT00Í "PRIMEIRR LINHR" s IN 
PUT R 

91.0 PRI NT00 * "ULTIMR LINHA" : INPÜT 

e 

920 P0KE65494 * 0:FOR Y = fl TO BsF 
OR X=1T09 

930 PRINTtt-2» TRB((X-l)#9)Lí(X * Y) 

m 

940 NEXTX:PRINTH-2»CHRí{13);:NEX 
TY:POKE 65495,0gRETURN 

950 IF X<1 FINO XSO0 THEN X=X+XS 

:XS=XS-1ü X=X-XS:GOTO 1008 

960 IF X>3 AND XS<6 THEN X=X+XS: 

XS*XS+l:X=X-XS:GOTO 100R 

970 IF Y<1 RND YSO0 THEN Y=Y+YS 

; YS=YS-10:Y=Y-YS:GOTO .1.000 

980 IF Y>13 RND YS<38 THEN Y=Y+Y 

S : YS=YS+10:Y=Y-YSrGOTO 1808 

990 GOTO 190 

1000 XB=Xí YB=Y: IFX<10RX>30RY<10R 
YM3THENGÜTO950ELSEGOSUB 8203GQS 
UB 870 

1010 POKE 1101 r50+XS 8‘POKE 1111,5 
1+XSsPOKE 1091,49+XS:FORX=:i .TÜSsF 
ORY=3 T013í PR INT(3Y*32+X-x 10 + 57 r Lí ( 
X+XS.Y+YS);:NEXTY,X:X=XB: Y=YBsG0 
TO 460 

1020 FOR GG=0TO40:NEXTGG s RETURN 
1030 II$=I$;Gl=0sG2=0;FORT=lTOLE 
N(llí) 

1048 M*-MID*(IIÍ,T,1) 

1050 IFMÍ="í"THENG1=T sNEXT 
1060 ) 11 TMENG2=T:GOTO!130 

1070 NEXT 

1080 IF G1O0 AND B2=0 THEN GOTO 
1120 

1090 GOSUB 1180 

1100 L$(XR» YR)=STRí < U):IFLEFTÍ(L 
*<XR,Yfl) ,l)» n ‘'THENLÍ-CXR,Yfl)=RIG 
HTí<L$(XflrYR)*LEN<LÍ < XR» YA))-1>: 
IF U=0 THEN PRINT8P-1," 

“i sPRINTSF’» L$ ( Xflr Vfl); 

1110 RETURN 

1120 lí (XRi YR)-"" :PRINT(Í32r "ERRO 
NR FUNCRO"?sPRINTGP," " s 

:fl*=INKEY$: IFRí = 1 '"GOTO 1120ELSERE 

TURN 

1130 IF G1=0 THEN GOTO 1120 ELSE 
IFGl = ÍTHENIÍ= ,, "sGOfOÍ140ELSETlí= 
MIDí<II$íG1-1tÍ) s IFT1Í- 11 I"THENIÍ 

= "I"ELSE IF T1$=' , R"THENIÍ = "R"ELS 
EI**"" 

1140 I$~I$+MID$(II$íGl+l»G2“Gl~1 


) :GOSUBU80 

1150 IFT1$="R"0RT1I"THEHGl-Gl 
-1 

1160 LL=LEN<II*)-G2sI*=LEFT*(II* 
» Gi-1) +"<"+STR* (U) f "> ,, +RlGHTÍ ( I T 
* - LL) 

1170 GOTO 1030 

1180 0 = 0: U (0 ) =0 8 FORT-1T0LEN( I í ) 
1190 MÍ-MIDÍ(lí r T r 1 ) 

1200 IFM$ = " C "THEIíX*-"" : Yí="" ;GOT 
01490 

1210 IFM*="<"THENX*=""sY$= 1, "sGOT 
0768 

1220 IFH*="L"ORM$ = n O 11 THEN 1370 
1230 NEXT 

1240 I=0:U=Ví0> :0*3 sf 0RT=1 TOLFN ( 
lí) 

1250 M$=MID*<lí íT.1) 

1260 IFM*w"# , 'THENU*V*U< 0 ) sGOTO!5 
40 

1270 IFM$=“ + "THF.NU = U+U(0)sGOTOIS 
40 

1280 IFMí="/"THENIFU(0) =0THENGOjT 
01 1 20ELSEV=U/U( 0)a GOTO 1 540 
1290 IFMÍ = "- 1 , THENU*U-V(0> - GOTO 15 
40 

1300 IFMÍ="I"THEN1=1+1 
1310 IFMÍ="R"THENT“I+2 
1320 NEXT 

1330 IF J = 1THENU^NT(U> 

1340 IF I=2THENU=flFíB(V ) 

1350 ÍFI=3THENU=INT<RBScV>> 

1360 GQTO1480 
1370 F0RT«2T0LF.N(I*) 

1380 IFHIDÍ(lí.T, 1 )=">"THENT1Í=M 

IE)$ (1$ * 2, 7-2 > : Ll=lEN < T$ )-7 s 72í~N 
IDÍ(IÍ,T + 1 r LL)r GOTO1400 
1398 NEXTT 

1400 

1410 IFHí = ,l C‘THE-NGOTm450 
1420 FORT=VRL(TIí)TQVflLí T2Í) 

1430 U=U+URL(LÍ(TrYR)) 

1440 NEXTT:60T0148# 

1450 F0RT=URL<TJí)T0VRL(T2í) 

1460 U=U+URL(Lí < XR * T)) 

1470 NEXTT 
1480 RETURN 

1490 T=T+ 1 :Ní =MIDí(I$ r T 7 1):IF Hí~ 
" 7 "THEN1510 

1500 XÍ=XÍ+MÍcIFT>100THENGOTO112 
0ELSEGOTO1490 

1510 T=T+1sMÍ=MIDí(lír T 7 1 ) J IFHÍ = 
"1"THEN1530 

1520 Yí“Yí+MÍSIFT>10STKENGOT 0112 
0ELSEGOTO1510 

1530 X 1 = UR L. < Xí ) 2 Y1 ~URL (Yí ) r U í 0 ) « 
URL(Lí<XI , Y1) ) :0 = 0+1sGOTO 1230 
1540 0=0+1sNEXTsRETURN 
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APLICATIVO 


Agenda Color 


CP 400 COLOR — VERSÃO FITA CASSETE — 64 K RAM 


Este programa foi desenvolvido pa¬ 
ra as pessoas que não querem nunca 
mais esquecer a data de aniversário do 
grande amigo ou da namorada, do no¬ 
vo endereço e telefone daquele repre¬ 
sentante comercial; ou lembrar, na 
última hora, que o caderninho de 
agenda ficou em casa ou no escritório. 
A partir de agora, use seu CP 400 pa¬ 
ra esta tarefa e armazene sua agenda 
em uma fita cassete. 

Com este programa, você pode ca¬ 


dastrar até 99 pessoas, com nome, en¬ 
dereço, telefone e data de aniversário; 
com possibilidade de alterações ou in¬ 
clusões. Mas cuidado para não cadas¬ 
trar mais que 99 pessoas, pois o progra¬ 
ma não aceitará um número superior. 
O nome e endereço devem ter até 30 
caracteres e o bairro até 20. 

Para gerar sua AGENDA COLOR 
ou atualizá-la, você deve usar o item 
Inclusão. Neste item e nos seguintes, 
a operação deve ser realizada através 


de códigos, que significam a posição 
em que se encontram os dados de uma 
pessoa específica. 

No item Aniversariantes, você po¬ 
de consultar todos os aniversários de 
um mês em particular. Para voltar ao 
Menu Principal, pressione ENTER. 

Para salvar os dados, você deve ter 
o gravador no volume 2 e a leitura de 
dados deve ser realizada no volume 7. 
Depois da gravação ou leitura, o pro¬ 
grama volta ao Menu Principal. 


1.0 ' X- X X- x x x x x x x x x x x x x x x x x x x x x x x x x 
20 '* AGENDO x 
30 'x PROLOG!CR x 
40 '*■ CP-400 «■ 
50 7 x x x x x x x x x x x x x x x x x x x x x x x x x x x x 


ó0 M*0:J~0:I~B 
70 B=0 3 Y==0 :T=0 
80 CLEAR 10000 
90 DIM 0(108) 

100 DIM Ní><100) 

110 DIM T$ ( 100 ) 

120 DIM D*(100) 

130 DIM E$(100) 

140 DIM B*(100) 

150 DIM G$ (100) 

160 DIM I*(100> 

170 DIM C$(100) 

180 CLS 

190 PRINT01É» "AGENDA" 

200 PRINT064+ÓT "<1> INCLUSÃO 1 ' 

210 PR INT096 + 6 * 1 ' <2i> C0NSULTR" 

228 PR.INT0128+6t"< 3> EXCLUSÃO" 
230 PRINTtí160+6» "<4> ALTERACA0" 
248 PRINT0192+6»"<5> ANIVERSARIA 
NTES" 

250 PRIMtâ224+6»"<6> TOTAL CADAS 
TRADO" 


260 PRINTG256+Ó,"<7> SALVAR OS D 
ADOS" 

270 PRÍNT8288+6 r "<8> LEITURA DOS 
DADOS" 


280 PRINTO320+A, "<9> FIM DO PROG 
RAMA" 

290 PRXNTtt384 ?"QUAL E' 0 NUMERO 

DA SUA ÜPCAQ";sTNPUT 0 

300 IF 0<1 ÜR 0>9THENG0TÜ298 

310 ON 0 GOSUB 330 » 590,770r930»I 

170,1420r 1530» 1730» 1.480 

320 GOTO180 

330 CLS 

340 PRINT012 , "INCLUSÃO" 

350 PRI NT0 32,"C0DIG0"?:INPUT B 

360 IF B=0THENRETURN 

370 IF B-100THENGOTO340 

380 PRINT064 »"NOME";:INPUTN$(B) 

390 IFLEN(N*(B>)>30THENPRINT,STR 

INGÍ> < LEN (N$ (Et) ) » " ")z GO SUB 550 s G0 

TO330 

400 IFNÍ ( B) --""THEN380 
410 PRINTG128»"FONE";:INPUTTS(B) 
420 PRÍMTG1Ó0»"ANIV«";:INPUTDÍ < B 
> 

430 P RIN T 019 2 7 "E ND .";sIN P U TE $ C B ) 
440 IFLEN(E$(B))>30THENPRINT»STR 
ING$(LEN(E$(B>)»" ")sGOSÜB550sGÓ 
TO330 

450 PRINT025Ó 7 "BAIRRO";:INPUTR$< 
E) 

460 IFLEN(E*<B)) >S0THENPRINT »STR 
ING$(LEN(B$(B)) 7 " ")sGOSUB550íGO 
TO330 

470 PRINT0288»"CEP";:INPUTG*<R) 
480 PRINT0320 7 "CIDADE";:INPUTI«( 
B) 

490 PRINTG352»"ESTADO";:INPUTC*< 
B) 

508 T*T+1 
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518 PRINTQ41Ó7 "DIGITE <<3> PARA C 
ONTINUAR" ? 

520' R$=INKEY$ :: JNPUTRí s IFA$<>"<ü"T 

HENGOTO188ELSE330 

530 RETURN 

540 CLS s PRINT0192 , "AGENDA CÜMPLE 
TA"sFÜRL-1T030s NEXTL sRFTURN 
550 CLS!PRINT0192+6»"ABREVIE POR 
FAVOR" 

560 SOUND 220,3:SOUND 228,3 

570 FORW-lTO1500aNEXTW 

580 PRÍNT<3192+Ó7STRING*<207" '* ) s 

RETURN 

590 CLS 

609 P RIN T <312, " C O N S ü L T R " 

610 PRINTQ32 7"QUAL E' O NR. DO C 
DDIGO";:INPUT B 

620 IF B-0THENRETU.RN 

630 IF B>100THENGOTG750 

640 PRINT064 ,“NOME s";N$(B) 


659 PRINT0128,“FONE 
) 

660 PRINT0160,"ANIV. 

) 

670 PRINT0 192,“END. 

> 

680 PRINT025Ó7"BAIRRO 
) 

690 PRINT0288»“CEP 
) 

700 PRINT0320»"CIDADE 
> 

7 10 PR INT(3332 ,"ESTADO 
) 


:" ; T$(B 
:";D$(B 
: "íE$(B 
s"?B*(B 
;' 1 í G $ C B 
sI$<B 
; C $ (B 


720 PRINTS416,“QUER MAIS CÔNSULT 
fl <S/N>";sINPUT Rí 
730 IF R $ = " S " THENGOTÒ590ELSE 74 0 
740 RETURN 

750 CLS:PRINTQÍ92+6»"CODIGO NAO 
CADASTRADO":SOUND 200,5 
760 FORU-lTO 1500:NEXTW:RETURN 
770 CLS 

780 PRINT012,"EXCLÚSAÜ" 


790 PRINT(332r "QUE CODIGO QUER EX 

CLUIR"; :INPUT B 

800 IF B=0THENRETURN 

010 N$ (B) -'"EXCLUÍDO" 

820 T$<B>~"EXCLUÍDO" 

830 D$ < B)="EXCLUIDO" 


840 E$(B)="EXCLUI DO" 
830 B*(B>»"EXCLUIDO" 
860 0$ (B) ‘""EXCLUÍDO " 
870 1$ (B)-"EXCLUII&)" 


880 C$ (B)--" EXCLUI DO" 
890 T-T-l 


900 PRINT0416,"DESEJA EXCLUIR HA 
IS ALGUM CODIGO <S/N>";sINPUTRÍ 


910 I FR $«=" S » THEN770ELSE920 
920 RETURN 
930 CLS 

940 PRINTG11 , 11 Af TERACAO" 

950 PRINT032,"QUE CODIGO QUER AL 
TER AR"; sINPUT B 
960 IF B--0 THFN RETURN 
970 PR INT064 , "QUAL 0 CAMPO A SER 
Ai.. TER A DO 

980 PRINT«96*"<Í> NOME" 

990 PRINTS12 8,"< 2> TE L EF0 N E 1 ' 

100a PRINTíÉ160 7 "<3> DATA DE A NI D 
ERSARIO" 

1010 P RINT@192," <4> ENDEREÇO 11 
1020 F'RINTíü224 7 " <5> BAIRRO" 

1030 PRINT <3256 , "<6> CEP" 

1 040 F' RIN T 02 88 , ” < 7 > CID A D F" 

1850 PftINT$320»"<8> ESTADO" 

1060 PRINTG3BM-"DIGITE D NR-CORR 

ESPÜNDENTE" ;sINPUT N 

1070 IF N < 1 OR N>8 THENRETURN 

1080 ON N GOTO 109071100. 11107 11 

20,11307114071138,1160 

1090 PRINT0448 7 "NOME";sINPUTN*(B 

):RETURN 

1100 PRINT0448,"FONE"; ;INPUTT$(B 
):RETURN 

1110 PRINT0448 7 "AN 10.";:INPUTD*( 
B):RETURN 

1120 PRINT0448, "END. :: TNPIJTE* (B 
): RETURN 

1130 PRINT0448 7 "BAIRRO";sINPUT B# 
(B):RETURN 

1140 PRINTO448, " CEF'" ; : INPUT 0$ (B ; 
sRETURN 

1150 PRINT0448,"CIDADE"; : INPUT J$ 
<B):RETURN 

1160 PRINT044 8 7 "ESTADO" ; :INPUT C* 
(B)sRETURN 
1170 CLS 
1180 REBTORE 

1190 PRINT04,"ANIVERSARIANTES DO 
MES" 

1200 PRINTS32»"DIGITE 0 MES A CO 
NSULTAR ?" 

1210 PR INTQ64 , "MES INPUT 01$ 

1220 IF DI$=""THEN RETURN 
1230 READ A$,Al$ 

1240 IFR$-D1$ OR UAL (All.) ~VAL < D1 
$ ) THEN1-370 s ELSE1230 
1250 DATA J ANEIR0 7 "01 "7 FEVEREIR0 
, 11 2" 7 MARCO 7 "3" 7 ABRIL , "4 " , MAIO , "5 
", JUNHO 7 "6".JULHO 7 "7",AGOSTO,"8" 
,SETEMBRO,"9 "7 OUTUBRO,"10",NOVEM 
BRO,"11",DEZEMBRO,"12" 

1260 PRINT096,"NOME 

1270 PRINT0160, "FONE ii";T$(B) 


GHRAÇAO PROLÓGICA 


7 



1230 

1290 


1300 


1310 

1320 


1330 


1340 


PRINT@192,"ANIV« 

a";D$<B) 

PRINTt?224r "END. 

s " ? EÍ* (F!) 

PRINT02B8,"BAIRRO 

: " ? E:$ ( B) 

PRINT0320 v"CEP 

s " ; 0 $ (8 ) 

PRINT0352,"CIDADE 

s"?I*<B) 

PRINT0384,"ESTRDO 


PRINT0448,"DIGITE 

<0> P/CÜN 


TINURR"?:INPUT 2% 

1359 IF Z$O"@"THEN1340 

1360 IF 0=5 THEN RETURN 
1370 FORB=1TO100 

1330 IF VAL(A1*)*VAL(MID*(DÍ(B) , 
4,2))THEN 8ÓSUB 1260 
1390 NEXT B 
1400 GOTO 1170 


1410 RETURN 
1420 CUS 

1430 PRINTS8, "TOTAL CADASTRADA " 
1440 PRINT(il92, "NUMERO DE ELEMEN 
TOS = "?T 

1450 PRINTG448,"PRESSIONE <ENTER 
> PflRR VOLTAR RO MENU." ; 

1460 Z**INKEY$sINPUT Z$ 


1470 IF Zí="" THEN RETURN 
1430 CLS 

1490 PRINT08, "SRIR DO PROGRAMA" 
1500 PRINT0Í92,"DESEJA SRIR DO P 
ROGRRMR <S/N>"; 

1510 INPUT R$ 

1520 IF R$="N"THENRETURN ELSE EN 
D 

1530 CLS 

1540 PRINT0128, "PRRR SALVAR ITEN 
S NR FITA" 

1550 PRINI®160,"POSICIONE R FITR 


156(3 PRINT0192, "PRESSIONE' PLAY E 
RECORD" 

1570 PRINT0224,"PRESSIONE <ÈNTER 
> QUANDO PRONTO"? 

1530 INPUT Qíi» 

1600 OPEN "O",#~1,"RGENDA" 

1.610 FOR B=1TO100 
1623 PRINTtf-1 
1630 PRINTii-1,T$(B) 

1640 PRINT#-1,Q*(B) 

1650 FRINT#-1*E$(B) 

1660 PRINT#-Í,B*<B> 

1670 PRINT#-1,0*<B> 

1680 F'RINTíí-1,I$(B) 

1690 PRINTtt-1,C*(B> 

1700 PRINT#-1,B 


1710 NEXTB 

1720 CL0SE#-1:RÉTURN 
1730 CLS:B=0 

1740 PRINT0128,"PRRR CARREGAR IT 
ENS DA FITR" 

1750 PRINT0Í60»"RETROCEDA A FITA 


1760 

PRINT0Í92,"PRESSIONE 

PLAY" 

1770 

PRINTS224 v"PRESS10NE 

<ENTER 

> QUANDO PRONTO"y 


1780 

INPUT Rí 


1300 

OPEN"I" ,#-!., "AGENDA" 


1310 

FOR. 8= 1 TO 108 


1820 

IF EOFC”1)TMEN2060 


1830 

INPUT#-1,N«(B) 


1840 

INPUTWfl ,T$(B) 


1858 

INPUT#”1,D$(B > 


1860 

INPUT#-1,E$(B> 


1870 

INPUT#-1,B*<B> 


1880 

INPUT#-1,0*(B) 


1890 

INPUT#-1rI $ C B) 


1900 

INPUT#-i,C*<B> 


19:1.0 

INPÜTtt-1 i B 


1920 

CLS 


193(3 

) 

1940 

PRINT096, "NOME :: 

" ?N$<B 

PRlNTe160,"FONE 

5"?T$( 

b ) 

1950 

PRINT0192, 11 ANIV» 

s";D*< 

B) 

1960 

PRINT@224,"END. 

s"?E$< 

O ) 

1.970 

PRINT0288,"BAIRRO 

?B$( 

B) 

1980 

PRINT0320 T"CEP 

:"?Ü$( 

B) 

1990 

■PRINTQ35Z,"CIDADE 

:"íI$( 

B) 

2000 

PRINT0384,"ESTADO 

:";Cí ( 

B) 

2010 

P RINT 0 3 2,"CODIG 0!";B 


2050 

NEXTaB=0 


2060 

CLOSEtt-isRETURN 
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